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ABSTRACT 


This  volume  of  the  DELFTC  (Defense  Land  Fallout 
Interpretive  Code)  documentation  describes  the  Particle 
Activity  Module.  This  module  computes  the  distribution  of 
fission-product  and  induced  activities  as  a  function  of 
fallout  particle  size.  Fractionation  is  accounted  for  by 
a  modified  radial-distribution  model.  Radioactive  decay 
is  computet!  from  the  Bateman  equation. 
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ijjsautiwisrix  ur  nmnsnajs 
IAND  FALDDUT  PREDICTION  SYSTEM 


1.  INTRODUCTION 

The  P&vticlc  Activity  Module  (PAM)  assigns  radio¬ 
activity  to  the  fallout  particles.  Three  sources  of  radio¬ 
activity  are  considered  in  DEIJTC,  (l)  fission  products,  (2) 
products  of  the  n,'Y  reaction  on  BU  in  the  device,  and  (3) 
neutron- induced  activity  in  the  soil  swept  up  by  the  fireball. 
The  fallout  radioactivity  for  a  particular  detonation  is 
assumed  to  be  a  function  only  of  particle  size  and  of  time 
after  detonation. 

The  distribution  of  activity  with  particle  size 
is  generated  by  a  modified  version  of  Freiling'a  radial- 
distribution  model  (References  1  and  2).  Consequently,  the 
PAM  takes  into  account  radiochemical  fractionation  and  can 
output  the  activity  of  individual  mass  chains. 

The  PAM  confutes  the  decay  of  each  individual 
nuclide  from  the  time  of  detonation  to  the  time  requested 
by  the  user  by  means  of  the  Bateman  equation.  Thereby 
DEIPIC  circumvents  the  problem  of  selecting  an  exponent  for 
the  power-law  approximation  to  the  decay  of  mixed  fission 
products,  and  can  convert  the  activities  to  exposure  rates 
or  exposures  on  the  basis  of  the  decay  schemes  of  the  nuclides . 

The  computer  program  was  written  in  FORTRAN  TV  for 
the  IBM  709u/9^'  Its  use  on  a  computer  having  words  of  fewer 
than  36  bits  will  require  drastic  and  intricate  modifications. 


2.  PHYSICAL  AND  MATHEMATICAL  MODELS 

The  following  outline  of  the  approach  taken  in  the 
RAM  will  be  confined  to  the  computation  of  exposure  rate. 

The  extension  to  accumulated  exposure  should  be  self-evident. 

The  user  requests  (cf.  Vol  VI,  Output  Processor) 
the  exposure  rate  at  a  specified  time  after  detonation.  The 
PAM  computes  by  means  of  a  fractionation  model  the  distribu¬ 
tion  of  the  contributing  nuclides  with  particle  size.  The 
decay  of  each  activity  from  detonation  to  the  requested  time 
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‘z  rlgcirouoijf  euinputeu,  cacn  activity  is  multiplied  by  a 
unique  conversion  factor  (exposure-nte-multlplier ,  ERM)  to 
obtain  exposure  rate.  The  ERM 'a  were  enTnrm+.pd  'Pros’  the  gamma, 
energy  spectra  of  the  corresponding  nuclides. 

The  normalization  factor  (K-f actor,  magic  number) 
used  in  many  fallout  models  does  not  appear  in  DEIEIC.  However, 
normalization  factors  can  be  readily  derived  from  DELEIC  output 
as  described  in  Section  4.2. 

2.1  Nuclide  Abundances. 


2.1.1  Fission  Products.  The  fis3ion  products  can 
be  grouped  into  a  number  of  decay  chains : 

Ni  -  Ife  -*  N:  N, 

One  or  more  members  (including,  of  course,  Ni )  may  be  produced 
directly  by  the  fission  event,  and  each  member  except  NM  decays 

as  e  while  each  member  except  Ni  grows  by  e  jhe 

complete  growth  and  decay  history  for  each  member  of  a  chain 
is  represented  by  the  Bateman  equation  (Reference  3): 


N 

n 


n  n 


Lc*i 

i«l  k=l 


(2.1) 


where 

N  (t)  =  atoms  of  the  nth  member  of  the  chain  at 
time  t, 

N?  =  at  cans  of  the  ith  number  of  the  chain  (i  a  n) 
at  time  0, 

and  Xk  =  disintegration  constant  of  the  kth  member 

of  the  chain  (k  £  n). 
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The  activity  in  disintegrations  per  second  is  given  by 


A  (t)  -  X  N  (t)  .  (f1. 3) 

n  n  n  '  '  ' 

The  number  of  disintegrations  that  occur  between  times  ti  and 
ta  is  given  by 


Dn  (ti  ,ta ) 


(2.4) 


which  is  obtained  by  integration  of  Equations  2.1  and  2.3-  The 
Bateman  equation  develops  a  singularity  whenever  \  . 

This  difficulty  is  circumvented  in  DELPHI  by  slightly  increment¬ 
ing  one  member  of  such  a  pair. 

2.1.2  Induced  Activity  in  Soil.  The  model  for  the 
contribution  of  induced  activity  in  the  cloudborne  soil  was 
developed  by  Jones  (Reference  4).  Three  basic  assumptions  are 
made : 


(1)  All  neutrons  entering  the  soil  are  theissllZed 
and  then  captured. 

(2)  Only  those  neutrons  need  be  considered  that  are 
seen  by  the  apparent  crater. 

(3)  All  significant  soil  components  are  refractory 
in  the  fractionation  scheme. 

A  detailed  description  is  given  in  Reference  4.  A 
data  deck  is  currently  available  only  for  Nevada  Test  Site  soil. 

2.1.3  Induced  Activity  in  Device  Materials-  The 
BfeM  currently  accounts  for  induced  activity  in  only  one  device 
component,  '  U.  Neutron  capture  by  U  produces  U,  which 
decays  to  ‘  Np  and  then  aasPu.  The  following  equations  are 
used: 
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1.  Activity  cf 


where 

and 

where 

ta  , 

and  ta , 

AAa 


339,.  -1 

U,  die  a  , 


(2.5) 


N°  =  number  of  neutron  captures , 

Xi  =  disintegration  constant  of  a39ll,  s  1 , 
t  =  time,  b. 

2.  Activity  of  a39Np,  dis  a-1, 

,  XiXaNi°  (  Xjt 
Aa  - -  (e  -e 

Xa-Xi  \ 

’339 

Xa  =  disintegration  constant  of  Np,  s  . 

3.  Disintegrations  of  33eU  occurring  between  ti  and 


Xat^ 


(2.6) 


(2.7) 


t  <33  9 

4.  Disintegrations  of  Np  occurring  between  ti 


(2.8) 


Disintegratiom 

i  « 

AAi  i 


of  ri‘3Wu  from  tx  to  infinity, 

N?  .  (2.9) 


hi 

6.  Disintegrations 


j  Xa-Xx 

This  mass  chain  is 
in  the  fractionation  scheme. 


of  33t  Np  from  tx  to 


infinity. 


(2.10) 


considered,  completely  refractory 


2.2  Activity  Versus  Particle  Size. 

The  radial-distribution  model  of  Freiling  (Refer¬ 
ence  l)  categorizes  a  nuclide  as  volatile  if  its  boiling  point 
is  less  than  the  solidification  temperature  of  the  soil  particles. 
The  nuclide  is  refractory  if  its  boiling  point  is  greater  than 
the  solidification  temperature .  Freiling  then  assucies  that  a 
volatile  nuclid  will  condense  on  the  particle  surfaces,  whereas 
a  refractory  nuclide  will  condense  uniformly  throughout  the 
particle.  A  fission-product  mass  chain,  whose  conqposition 
changes  with  time,  can  then  be  characterized  by  the  fraction 
of  its  membership  that  represents  refractory  nuclides  at  the 
time  the  cloud  cools  to  the  soil-solid* i Jcation  temperature. 

This F yelling  ratio  is  referred  to  as  .  Freillug  has 
postulated,  on  an  empirical  basis,  that  the  specific  activity 
of  fallout  particles  is  proportions^  i  the  (bt-l)  power  of 
the  particle  size,  where  b,  is.  /)?„  for  mass  chain  i. 

Freiling  (Reference  2)  has  treated  he  relationship 
of  the  model  to  the  log-ncrmal  distribution  of  particle  sizes. 

In  DEIFIC,  however,  it  was  desirable  to  generalize  the  model 
for  arbitrary  particle-siz^  distributions  in  tabular  form. 

The  approach  can  be  formulated  as  follows : 


d^  -  geometric  mean  diameter  of  kth  particle-size 
class, 


let 


at,  —  iVviiuuci  u.t  jjtti't.l.f'ieu  ill  CJ.6U3S  K.  ? 
A 


~  total  number  of  equivalent  fissions  i  n  all.  al^ 
classes , 

»  f  ission  yield  of  ith  mass  chain, 
and  r  *  index  for  perfectly  rafactory  mass  chain. 


Tha  equivalent  fissions  of  mass  chain  i  in  size 

class  k  is 


vhore 


Fi  CO  ■  ft  ri  i  CO  • 


*i  co  i  \  * 

/  k=i 


(2.1l) 


(2.12) 


For  the  perfectly  refractory  chain  (bt  =  1) ,  Equa¬ 
tion  2.11  takea  the  form 


inhere 


FrCO  '  Ft  y,  '«  CO  - 


(2.13) 


(2.1U) 


i.e.,  the  mass  fraction  in  the  kth  aize  class 
The  fractionation  ratio  is  given  by 


(2.15) 


(2.16) 


To  obtain  an  algorithm  that  takes  advantage  of  the 
fac£-  that  particle  size  distribution  consists  of  a  table  of 
^ d^)  versus  d  ,  we  note  that 


we  can  rewrite  Equation  2.16 


(2.19) 


It  follows  from  Equations  2,11,  2.15 »  and  2.19  that. 


ri  CO '  ft  fi  si  ‘ 1  rM  CO  •  <2-ao) 


In  tits  form  of  the  radial  distribution  model,  the  specific 
activity  for  any  mass  chain  that  is  not  perfectly  refractory 
decreases  monotonically  with  increasing  particle  size.  Observa¬ 
tions  of  fallout,  on  the  other  hand ,  provide  strong  evidence 
that  the  specific  activity  tends  to  level  off  at  about  100  to 
200  To  account  for  this  effect,  the  model  was  modified  in 
the  following  manner: 

The  approach  assumes  a  two-component  system.  One 
component  obeys  the  radial  distribution  model.  The  other  has 
a  constant  specific  activity  over  the  particle  size  distribu¬ 
tion. 


Let 

R,  -  fraction  of  fissions  in  ith  mass  chain  that  obeys 

radial  distribution,  and 

S.  =  fraction  of  fissionB  in  ith  mass  chain  that  appears 
1  with  constant  specific  activity. 

Then  Equation  2.20  is  replaced  by 

Fi  CO  -  Vi  (*M‘ ' 1  ♦  si)  fM  CO  •  <2-a> 

Figure  2.1,  an  idealized  plot  from  fallout  observations,  shows 
the  two  components. 
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Figure  2.1  Relationship  of  equivalent  fissions  to  particle 
size . 

The  crossing  point  sets  the  criterion 


RiEiDb|  ~  1  =  ,  (2.22) 

s  ince 

\  =  1  ,  (2.23) 

R±  (l  +  E^1  “  r)  «■  1  s  (2.24) 

then 

1  1  +  EjD15*  "  1 
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(2.25) 


1 


(2.26) 


E^1  " 

1  +  “  1 


Finally 


FT  YiEI 


1  +  E^1  "  1 


(£.27) 


On  the  basis  of  fallout  observations ,  D  has  been  taken  as  100  n 


3.  COMPUTER  PROGRAM  DESCRIPTION 

The  Particle-Activity  Module  consists  of  14  sub¬ 
routines  organized  as  shown  in  Figure  3«1*  The  activity- 
versus-particle-size  tables  generated  by  the  PAM  are 
requested  by  the  Output  Processor  for  specific  times.  There 
may  be  any  number  of  such  requests.  Consequently,  the  BAM 
has  been  divided  into  two  phases.  Hiase  I  read3  the  input 
data  and  preprooesaes  them  to  the  extent  that  requested  time 
does  not  influence  the  computation.  Phase  I  is  exercised  only 
once  for  a  particular  detonation.  Hiase  II  is  exercised  as 
often  as  required  to  prepare  the  tables  of  activity  versus 
particle  size  for  requested  times. 

Phase  I  consists  of 


1AM1 

XPRM 

SETUP 

INDCD1 

YIEI" 

FRATI0 

s  II  consists  of 

PAM2 

INDCD2 

GXPSR 

MCEDEP 

URAN 

BATMAN  is  required  in  both  Phase  I  and  Phase  II.  T7M8EC  and 
UNPACK  are  small  utility  routines*  Table  3.1  shows  the  blocks 
of  labeled  COMMON. 

,  The  individual  subroutines  are  described  mere  fully 
in  the  following  sections . 
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mu  V»TT*  1 

xn.  uijp  3  ,  J. 


C^M0N  BLOCKS 


Total  Storage  1204la ,  5153io 


/FISHIN/ 115  5e ,62110 

ABEGNfrOo) 
ABUND0(7OO) 
BRANCH(130) 
CAFF  IS 
DC0N(7OO) 

IBRA 
IMJC 
MAXNUC 
MULT (11) 
NUCLIB(700) 

/UTILITY/6l6e ,398io 

K0UT 

NIRNT(15) 


/DECAY /bs ,610 

TENTER 

JD 

KD0S 

TENTER 

TEXIT 

TIME 


/lNDUCE/6l6e ,398io 

ALBF0M 
FAC  (7, 18 
F0GRNY  (7,18) 
ISjfl(lB) 

IMAX 

XLAM(7,18) 


/ OU'iWr/ 3l68  ,20610 

FISNUM 

FP(200) 

FW 

ITAB 

MAS CUN 
SIGMAS 


/fryung/io479  ,55^ 

BSUBK(90) 

EHM  (185 ) 
JBM(185) 

KKM 

ECF(90) 


/SET3/725I8 ,3T53io  (EAM  uaes  only  FMASS  and  E3IZE) 


BZ 

I0T(18) 

jMXREQ, 

BZ2 

IP 

MYDUMY 

BZZ 

IP0UT 

NA 

B222 

ITT  (18) 

NBZX 

DELTAX 

IV 

NBZX2 

DGX 

JC(18) 

NBZY 

DGY 

JIN 

NCL 

DIFC0N 

J0UT 

NE 

DIFADJ 

JP0UT 

NF 

FMAS (500) 

KTR(50C) 

NIJ 

FMASS  (200) 

KTAES 

NMAP 

IC (18) 

IAST 

NMAX 

ICpN 

MAFRUN 

N0X 

ictr 

MARRAY 

NP(2l) 

IH 

MIN 

NREQ 

NS 

NTAIES 

NTAJET 

NTASK 

NXMAP 

NYMAP 

*MIN 

is (500) 

HiIZE(200) 
FACT (200) 
R0PART 
T(5C0) 

T1 

T? 

TUMIT 


X(500) 

XF 

X0 

XMAX 

XMIN 

XNMAP 

XI 

X2 

X3 

X4 

'  Y  (500) 
YF 
YO 
YMAX 
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3.1  executive  Control. 


3 - 1  - 1  RnKrnm.tin-i  PAMJL  (HOB,  SIDTJii1. 
IPOUT ,  SIGMA^  ~V*“L 


frwqn  TO  TSTM 

J  -— 11  w. .  •*•— .— *M 


TaATini 

rr'i.r.t } 


Inputs  : 


Argument  list  Input  tape 


HOB 

IPJ5UT 

IS  IN 

IS0UT 

SIGMA 

SIMM? 

OWSD 

TW 


CAPFIS 

EMI1N 

fissu) 

IFTAPE(lO') 

NPRNT(l.5) 

PAMLD(12) 


Storage  requirement  (exclusive  of  cfowt'A) 

1550j  ,  872io 

Calling  program:  LTNK8,  Sequence  312 

Subroutines  called:  SETUP,  TIE IB,  XERM,  INDCD1,  FRATI0 

Flowchart:  Figur-::  3.2 

Subroutine  EftMl,  the  executive  program  for  Phase  I, 
reads  control  parameters  and  input  data  specific  to  the  run. 

It  also  seta  file  assignments  for  the  invariant  data  and 
manages  the  restart  feature.  Finally,  it  calls  the  worker 
subroutines  of  Phase  I. 

The  PftM  uses  five  mnemonics  for  l/0  files.  K0UT  is 
the  system  output  tape.  I3IN  is  the  system  input  tape.  IEAM 
is  the  FAM  restart  tape.  The  invariant  data  set  (transition 
cards,  fission-yield,  tables,  and  exposure-rate  multipliers) 

Is  read  from  INVP;  the  quasi-invariant  data  set  (soil  composi¬ 
tion)  is  read  from  KRD.  K0UT  Is  identified  with  IS0UT,  the 
mnemonic  used  in  the  Output  Processor.  IPAM  is  identified 
with  IP0UT ,  the  binary  output  tape  from  the  Transport  Module 
(cf.  Vol  IV).  INTP  and  ,  KKD  are  Initially  identified  with 
ISIN. 
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PAM1  first  reads  a  run  Identifier,  PAMID(l2),  and 
two  control  arrays,  IFTAHS(lO)  for  file  manimlation  and 
NFRNT(15)  for  printout  options.  If  IFTAFE(4)  =  T,  the  program 
tranches  to  read  restart  data  from  IPAM,  print  the  title  page, 
and  return  to  LINK8.  Otherwise  PAM1  reads  CAPFIS ,  EMITN,  and 
FISSID:  prints  the  title  page;  checks  IFTAH?(l)  for  the  cor¬ 
rect  assignment  of  1NTP;  checks  IF1APE (2)  for  the  assignment 
of  KED, 


The  worker  subroutines  are  then  called  sequentially. 
If  EMITN  has  been  set  £0.0  to  suppress  the  induced  activity 
calculation,  1MAX  is  set  to  0  as  a  flag  for  Riaae  II.  If 
TP  TAPE (3)  =  T,  restart  infennation  is  written  on  ISAM  (binary) 
before  the  return  to  LINKS. 


3.1.2  Hubr  outi ne  PAM2 . 


Input : 

C0^0N/0UTRFT/  C0MM0N/UTIKmr/  C0MM0N/FISHIN/  C0MM0N/INDUCS/ 

FF(200)  K0UT  ,  CAEF1S  Ml 

1TAB  NFRNT(15) 

JGO 

Output : 

C0MM0N/0UTHJT/ 

FP(200) 

Storage  requirement  (exclusive  of  C0MM0N) :  153a  >  lC^io 

Calling  programs  :  I11JK9 ,  Sequence  189 
CALC,  Sequence  89 

Subroutines  called:  GXP5B ,  URAN,  IKDCD2 ,  MCHDEF 
Flowchart:  Figure  3-3 

This  subroutine  is  the  executive  program  for  PAM 
Phase  II.  The  user  should  note  that  provision  has  been  made 
for  an  additional  output  option,  !G0  =  3,  to  compute  induced 
activity  only.  This  option  is  not  implemented  in  the  present 
Output  Processor.  RAM2  initializes  the  FP  array  so  that  the 
worker  subroutines  can  accumulate  the  contributions  from 
different  kinds  of  activity. 
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/  ENTER  \ 
'  FR0M  ' 
^  LINK  9  CW  j 
\Cai_l, / 


FF  <11  =  0.0, 
1=  1 , 1TAB 
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3.2  Fission  Product  Abundance a . 


3.2.1  Approach.  Computation  with  the  Bu-Leman  equa¬ 
tion  requires  the  roiiowing  inputs : 

1 .  Subohatn  lists 

2.  Disintegration  constants 

3.  Branching  ratios 

4.  Fission  yield." 

Overall  program  efficiency  dictated  a  compromise 
between  rapid  access  to  this  information  and  conservation  of 
core  storage.  The  approach  taken  was  based  upon  the  principles 
of  the  packed  word  and  the  stacked  array,  with  maximum  pre¬ 
processing  during  Phase  I  of  the  PAM. 

Figure  3*^  shows  a  typical  example  of  branching  in 
a  moss  chain  (mass  115).  The  numbers  in  the  circles  are 
atomic  numbers,  numbers  along  the  arrows  are  branching  ratios, 
and  the  asterisks  represent  isomeric  states. 


Figure  3-^  Example  of  complex  mass  chain  (mass  115). 
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Each  of  the  nine  possible  paths  from  1*3  to  50  con¬ 
stitutes  a  subchain.  RAM  Phase  I  catalogs  the  subchains, 
branching  ratios,  and  disintegration  constants.  The  master 
table  of  fission  products  is  the  array  NUCLID(700).  Each 
entry  contains  In  packed  form  the  identification  of  the 
nuclide ,  a  pointer  to  its  daughter  (similar  to  self-relative 
Addressing  in  an  assembly  program) ,  and  a  counter  for  scann¬ 
ing  the  branching  ratio  table,  BRANCH(l30),  which  is  stacked. 
The  disintegration  constants  are  listed  in  the  simple  array 
DC0N(7OO),  parallel  to  NUCLID. 


A  word  in  NUCLID  is  subdivided  into  12  bytes  of 
3  bits  each;  i.e.,  a  byte  represents  one  octal  digit.  These 
may  be  numbered  so: 


Mass 

Number 


Isomeric 

State 


Branching 

Designator 


12 

11 

10 

0 

8 

7 

6 

5 

4 

3 

2 

3 

Atomic 

Number 


v - 

Daughter 

Locators 


The  mass  number  is  placed  in  bytes  10-12,  the  atomic  number  in 
7-9,  and  the  isomeric  state  indicator  in  byte  6.  A  fission 
product  may  have  branching  decay  to  at  most  3  daughters.  Each 
of  bytes  3-5  references  one  of  the  daughters  by  the  appropriate 
increment  to  the  array  index,  (if  the  array  Is  properly  ordered, 
this  increment  cannot  exceed  7*)  At  most  one  of  these  increments 
can  be  negative ,  whereupon  byte  2  contains  the  appropriate  byte 
number.  The  array  BRANCH  is  stacked  so  that  it  contains  entries 
only  where  there  is  mare  than  one  daughter.  When  NUCLID  and 
BRANCH  are  scanned  together,  byte  1  provides  (indirectly)  the 
information  for  indexing  BRANCH.  Specifically,  the  index  is 
incremented  by  4-n,  where  n  is  the  contents  of  byte  1.  The 
beginning  of  each  subchain  is  flagged  with  a  minus  sign. 

Precautions  must  be  taken  to  prevent  redundancy  on 
members  of  a  subchain  having  more  than  one  arrow  entering  or 
leaving  (see  Figure  3.4).  Two  steps  are  taken.  Each  fission 
yield  [array  YIELD (700)  parallel  to  NUCLID]  is  divided  in 
Phase  I  by  the  number  of  entering  arrows.  During  the  decoding 
process  in  Ihase  II,  the  leaving  arrows  are  accounted  for  by 
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accumulating  the  branching  ratios  from  right  to  left  in  each 
riubchain. 

The  packed  words  in  array  NIFC IZD  require  a  minimum 
of  36  bits.  However,  the  program  operates  separately  on  two 
groups  of  21  and  15  bits,  respectively.  Consequently,  the 
program  can  be  run  on  a  machine  having  a  word  length  as  short 
as  21  bits  by  splitting  NUCLED  into  two  parallel  arrays  and 
suitably  modifying  the  program.  Adjustments  may  be  necessary 
elsewhere  in  the  program  to  release  the  additional  7 00  words 
of  core  memory  required. 


3.2.2  Subroutine  3ETUP  (INTP.  MAXMUL) ■ 


Inputs : 


Argument  list  Input  tape 


C0MM0N/lJTILm 


INTP 


BRAT 

DATN0 

DI80M 

DMASS 

HIiIFE 

IXEP 

lUHTf 

PATN0 

PIS0M 

H4ASS 


K0UT 

NPRNT(15) 


Outputs : 

Argument  list  C0MM0N/FISHIN/ 


MAXMUL 


BRANCH (130) 
DC0N (700) 

I  BRA 
INUC 
MAXNUC 
MULT (ll) 
NUCLID(700) 


Storage  requirement  (exclusive  of  C^1M0N):  1352io  ,  2510b 


Calling  program:  Subroutine  EAM1,  statement  50 
Subroutines  called:  TIMSEC  (DELFIC  function) 

DUMP  (System  subroutine) 
Flowchart:  Figures  3.5a  through  3.5h 


This  subroutine  reads  data  on  the  nuclear  transitions 
of  the  fission  products  and  edits  them  into  the  arrays  BRANCH, 
DC0N,  and  NUCLED  described  in  Section  3.2.1.  Ihe  sequence  of 
input  records  i-r  inconsequential. 
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The  program  begins  with  a  series  r>f  initi»’.i*»+.ion!». 
Noteworthy  among  these  1b  the  array  MULT(ll),  which  is  set  up 
so  that  MULT (I )  =  8**1. 

Statement  10  is  the  return  point  for  successive 
reading  of  transition  cards.  Before  each  card  is  read  a  check 
is  made  to  ensure  that  the  dimensions  of  the  principal  arrays 
will  not  be  exceeded.  After  each  card  is  read,  the  contents 
are  checked  for  validity.  Bad  cards  are  printed  out  and 
rejected.  IMASS  =  0  signals  the  end  of  the  transition  deck 
and  causes  a  transfer  to  Statement  200  for  a  second  pass 
through  the  stored  data. 

At  Statement  l4  the  half-life  is  converted  to  a 
disintegration  constant  in  s-1 .  Then  a  note  is  made  if  the 
transition  involves  branching.  The  parent  and  daughter  are 
compared  to  ascertain  the  type  of  transition,  which  is  coded 
into  KTYP. 


At  Statement  22  IMASS  and.  PATKO  are  packed  into 
bytes  2-6  of  NAMEAB.  The  next  block  of  coding  determines 
what  position  the  new  nuclide  Bhould  occupy  in  the  master 
table  of  fission  products,  NUCLID (700).  The  first  nuclide 
is  immediately  shunted  to  the  general  scheme  for  adding  an 
entry  to  the  bottom  of  the  table. 

NUCLED  Is  to  be  ordered  by  (1)  increasing  mass 
number,  (2)  increasing  atomic  number.  (3)  decreasing  isomer 
number.  In  the  first  sort  loop  (llO)  NAMEAB  is  compared  with 
the  most  significant  bytes  of  each  entry  in  NUCLID,  If  a 
point  is  found  where  the  new  nuclide  should  be  inserted,  a 
transfer  Is  made  cut  of  the  loop  to  Statement  121  or  131. 

Normal  exit  from  the  loop  (to  Statement  111)  indicates  that 
the  new  nuclide  is  to  be  added  at  the  bottom  of  the  table. 

At  Statement  111  the  contents  of  NAMFAB  are  trtmsferred 
to  bytes  7-12  of  the  next  cell  of  NUCLID; PlS^i  and  KTYP  are 
stored  in  bytes  6  and  5,  respectively;  the  branching  designator 
(byte  l)  is  initialized  at  and  the  sign  bit  is  set  negative. 
The  disintegration  constant  is  compiled  into  the  parallel 
table,  DC0N(200).  If  there  is  no  branching,  control  is 
immediately  returned  to  Statement  10  to  read  another  card.  If 
there  is  branching,  there  is  first  a  detour  to  Statement  112. 
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At  Statement  112 ,  BRAT  is  corralled  into  Llr;  a  Lacked 
array  BRANCH(l30).  The  branching  designator  (byte  1  of  NUCLID) 
is  decremented  by  1„  This  branching  designator  is  used  to 
maintain  correspondence  between  NUCLID  and  BRANCH,  which  are 
not  parallel.  During  passes  through  NUCLID  there  appear 
statements  of  the  general  form, 

KBR  =  KBR  +  4  -  MOD  (NUC ,MULT (l ) ) , 


to  effect  this  bookkeeping. 


If  the  new  nuclide  is  found  on  the  basis  of  mass 
number  and  atomic  number  alone  to  fall  between  two  entries  in 
NUCLID,  control  is  transferred  from  loop  310  immediately  to 
Statement  131.  NUCLID  and  DCON  are  opened  for  the  insertion 
in  a  straightforward  manner,  and  the  cell  of  NUCLID  is  packed 
as  at  Statement  112.  Again  the  paths  diverge  on  the  existence 
of  branching.  In  the  event  of  branching  it  may  be  necessary 
to  make  an  Insertion  in  BRANCH. 


If  the  new  nuclide  has  the  same  mass  number  and 
atomic  number  as  an  old  entry,  the  transfer  from  loop  110  is 
to  Statement  121  for  a  closer  look.  Isomeric  states  are  now 
compared  in  the  neighborhood  of  the  exit  point  from  loop  110. 

If  an  identical  entry  is  not  found,  the  point  of  insertion  is 
determined  and  control  is  transferred  to  Statement  131.  If 
an  identical  entry  exists ,  the  new  nuclide  is  not  really  new 
but  represents  another  branch  in  the  decay  scheme.  Transfer  is 
then  to  Statement  l4l.  Note:  The  five  statements  following 
121  comprise  the  most  Intricate  coding  an  this  subroutine. 

At  Statement  l4l,  checks  are  made  for  duplication 
and  for  agreement  of  the  disintegration  constants  If  all  is 
well,  the  new  KTfP  is  inserted  in  the  highest  order  available 
byte,  the  branching  designator  is  decremented,  and  BRAT  is 
compiled  into  BRANCH. 

After  all  the  cards  have  been  read,  further  processing 
begins  at  Statement  200.  Except  for  initialization,  this 
segment  of  the  program  consists  of  loop  250  through  the  nuclide 
table,  now  properly  ordered.  For  each  entry  we  examine  each 
decay  branch  (if  any)  in  turn.  The  disintegration  constants 
of  each  parent-daughter  pair  are^c^mpared.  If  they  are  equal, 
one  of  them  is  incremented  by  lO"1  to  avoid  a  singularity  in 
the  Bateman  equation.  The  type  of  decoy  is  decoded  from  KTYP, 
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and  the  packed  name  of  the  daughter  is  computed.  A  search  is 
then  made  in  NUCLTD  for  the  daughter.  When  a  daughter  is  found, 
its  sign  is  set  positive.  (Thus  at  the  end  a  negative  value  of 
NUCLID  indicates  bhe  beginning  of  a  subchain) .  KTYP  is  replaced 
in  its  byte  by  the  absolute  value  of  the  difference  between  the 
parent  and  daughter  indices.  If  this  difference  is  negative, 
the  byte  number  is  inserted  as  the  value  of  byte  2. 

The  following  restrictions  are  placed  upon  the  data 
set  input  to  this  program: 

1.  There  must  be  no  more  than  three  decay  branches. 

2.  In  a  properly  ordered  table  the  absolute  difference 
between  parent  and  daughter  indices  must  not  exceed  7« 

3.  There  must  be  no  more  than  one  branch  per  nuclide 
yielding  a  daughter  lying  above  the  parent  in  the  table. 
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Figure  3- 5a  Detailed  flowchart  for  Subroutine  SETUP. 
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«rtn«T-  ru_Lr.b  r  * 
_ _ 


[NUC  " 
£Q 

UAKNUC> 


/  READ 
PMAGS  ,  PIS0M, 
PATN0,  HLIFE  , 
IUNIT,  !EXP, 
BRAT,  DMASSj, 
OISflW  .  DATN0 


"'jjw’f  i  _>wo 

T0  1SFULI. 


NPRNT(I) 


NlJCUDIIl, 
D  C3N  (T), 
M.INUC 


>OOoW— NPRNT12)  >-« — PMA3I 

^y  ^  .^2oo  \ 


M0RE  INPUT  ? 


T0 

\  IS  FULL 


PRINT 

ERR0R 

MESSAGE 

(1301) 


PRINT 

ERR0R 

MESSAGE 

(1308) 


ASSIGN  95 
T0  IST0P 


LAMBDA  =0.0 
KTYP  =-0 
IM  =  4 

ASSIGN  1010  IBfW.I 
ASSIGN  10  T0  JBRAT 


STABLE 


OMASS  HLIFE  V— 


Figure  3.5b  Detailed  flowchart  for  Subroutine  SETUP. 
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Detailed  flowchart  for  Subroutine  SETUP 


Figure  3.5g  Detailed  flowchart  for  Subroutine  SETUP, 


RETURN 


<30 T0 
1ST0P 


99 


Figure  3.5h  Detailed  flowchart  for  Subroutine  SETUP. 


3.2.3  Subroutine  YIELD  (INTP,  FISSID) . 


Input: 


Argument  list 

C0MM0N/ F1SHIN/’ 

C0MM0N/UTILITY / 

Input  tape 

FISSID 

INUC 

K0UT 

FISTIP 

INTP 

MUIff(ll) 

NFRNT(15) 

FI  ID  IN 

NUCUD(70Q) 

NAT 

NMAS 

NSIAT 

Output : 

c0mm0n/fishin/ 

AJBEGN(yoO) 

Storage  requirement  (exclusive  of  C0MM0N ) :  1300s,  70*ho 

Calling  program:  EftMl,  Sequence  127 
Flowcharts:  Figure  3.6a  through  3.6e 


This  subroutine  reads  the  requested  table  of  fission 
yields  and  stores  it  in  the  array  ABEGN,  parallel  to  NUCLID. 

The  entries  in  ABEGN  are  then  adjusted  to  prevent  redundancy 
in  decay  calculations  for  nuclides  that  are  members  of  moxe 
than  one  subchain. 

There  are  three  sets  of  input  cards  (or  card  images 
on  tape)  for  this  subroutine.  Each  set  consists  of  a  header 
card  containing  a  list  of  fission  typeB  (FIS1YP(6)),  a  series 
of  data  cards  containing  nuclide  identifiers  and  the  fission 
yields  (FYLDIN,  atoms/lC r  fissions )  in  columns  ordered  in 
accordance  with  the  header  card,  and  a  blank  termination  card. 
The  entire  deck  is  terminated  by  an  additional  blank  card. 

The  program  searches  the  deck  for  the  header  card 
containing  the  fission  type  requested  (FISSID).  It  then  sets 
the  reading  F0HMAT  for  the  correct  card  column  and  reads  the 
data  cards.  For  any  entry  in  NUCLID  for  which  no  card  appears , 
the  yield  is  set  to  zero. 
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After  ABEGN  has  been  compiled,  the  subchains  are 
examined  by  a  simplified  version  of  the  procedure  used  in 
BATMA2I.  Each  entry  in  ABEGN  is  divided  by  the  number  of 
jtrrwft  (cf  Figure  2.4)  entering  the  corresponding  cubchnin 
member. 


If  any  user  has  an  application  for  the  PAM  requiring 
an  unmodified  fission-yield  table,  alternate  versions  of  SETUP, 
YIEID,  and  BAUMAN  are  available  in  which  the  redundancy  problem 
is  handled  in  a  different,  but  less  efficient,  manner. 
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Figure  3* 6b  Detailed  flowchart  for  Subroutine  YIEID. 
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XP-NUC  (LSUB) 
IM"UM(LSUBS 
INF0=M0OiIAES 
(NUCUD(KP)11MULT(5S) 
U|^M(LSUBWN^» 


INF0  =  4 

w 


-^<''1 LSUB  -  I  ?  '> 


I.AST=LSUB+I 
l  =  2 


ID-M0DUNF0, 
MULT  (IM+II)/ 
MULTUMI 


CMULT(2))/MULT(I) 


LSUb  =  JL  V> 

\  7 


MFM(KP). 

MEM(KP)FI 


NDAUT= 

KP  +  INC*ID 
LSUB=LSUB‘H 


LOAC.K=LAST-  L 
JL=LBACK 
IM  =  UM(LBACK) 


^'<fouNFykM'V>.  43l  LSUB-LBACK 
<^ACKiMULK«4iV>i— Si».  L1M(LSUB)  = 
\.AtULT(lV4>^  UM(LSUB)-! 


L*  LSUB 
^  7  „ 


LSUB>  II 

S.  v 


NUC(LSUB)= 

NDAUT 


IMSINUC 


Figure  3.6d  Detailed  flowchart  lor  Subroutine  YTFID. 


3.2..  4  Subroutine  BATMAN. 
Input : 


C0MM0N/UTI LIK 
KOUT 

NERNT(15) 


C0toM0N/FISHIN/ 

AHEGN(700) 
BRANCH (130) 
DC0N(7OO) 

IBRA 
INUC 
MAXNUC 
MULT (11) 
NUCLID  (700) 


Output : 

C0MM0tf/FISHIN/ 


C0MM0N/DECAY/ 

IG0 

3OD0S 

TENTER 

TEXIT 

TIME 


ABUND0(7OO) 

Storage  requirements  (exclusive  of  C0MM0N) :  1217b ,  655io 


Calling  programs :  FRATI0 ,  Seouence  67 


GXFSR,  Sequence  62 
MCHEfEP,  Sequence  76 


Flowcharts:  Figures  3.7a  through  3-7c 


This  subroutine  evaluates  the  Bateman  equation  for 
each  fission  product.  A  choice  of  four  outputs  is  controlled 
by  three  input  parameters  as  follows: 


IG0 

JD 

KD0S 

Atoms/lO4  fissions  at  TIMF 

F 

T 

F 

Bis  s~1/l04  fissions  at  TIME 

T 

T 

F 

Dis/104  fissions  from  TENTER  to  TEXIT 

T 

F 

T 

Djs/lO4  fisBions  from  TENTER  to  infinity 

T 

F 

F 
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After  initialization  the  program  enters  the  main 
loop,  which  scans  the  NUCTJD  array.  The  sign  of  each  entry 
is  examined.  If  it  is  positive,  the  index,  IBR,  for  the 
BRANCH  array  is  adjusted  and  the  scan  continues.  A  negative 
sign  initiates  subchain  processing  at  Statement  11.  Subchn In 
members  are  indexed  by  IfiUB,  cross-referenced  to  the  index 
of  NUCLID  by  the  array  NUC. 

Each  decay  path  (cf  Figure  3.7)  starting  from  this 
:ntry  in  NUCLID  is  considered  in  turn.  The  branching  points 
constitute  a  hierarchy  in  which  the  one  farthest  to  the  right 
varies  most  rapidly  and  the  one  farthest  to  the  left  least 
rapidly. 


The  Bateman  equation  is  evaluated  from  each  member 
of  each  subchain.  The  output  is  stored  in  the  array  ABUND0, 
parallel  to  NUCLID.  For  details  of  the  logic,  the  user 
"hould  examine  the  extensive  comments  in  the  FORTRAN  listing. 


3.3  Fractionation. 

3.3.1  Subroutine  FKATIg  (SUMMP,  'IMSD,  MCHK). 


Input : 

Argument  list 

C0MH0H/SKT3/ 

C0MM0N/0UTHJT/ 

SID  IMP 

TMSD 

EMASS (200) 

PSIZE (200) 

ITAB 

c0mm0n/fishin/ 

C0MM0N/UTI LITY / 

ABUND0(7OO) 

INUC 

MULT (11) 

NUC  IilCD(700) 

K0UT 

N'HUIT(15) 

Output : 

Argument  list 

c^m0n/fkyling/ 

C0MM0M/DECAY/ 

MCHH 

BSUBK(90) 

ECF(90) 

IG0 

JD 

KD0S 

TIME 

Storage  requirement  (exclusive  of  C0MM0N) :  1035b ,  5^1io 

Calling  program:  PAM1,  Sequence  134 
Subroutine  called:  BATMAN 
Flowcharts:  Figures  3.8a  and  3.8b 

This  subroutine  computes  the  parameters  for  the  radial 
distribution  model.  It  first  calls  BATMAN  to  compute  the  atomic 
abundance  of  each  fission  product  at  the  time  (1MSD)  when  the 
cloud  cooled  bo  the  condensation  temperature  of  the  soil.  The 
boiling  point  (B0IL(4o))  of  each  fission  product  is  compared  with 
the  solidification  temperature  (SIDTMP)  of  the  soil.  Then  the 
refractory  fraction  (FK(90))  of  each  mass  chain  is  computed. 

FRATI0  then  courputes  BSUBK(90)  (h, -1  in  Section  2.2) 
and  BCF{90)  (E,  in  Section  2 .2). 
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Figure  3 . 8a  Detailed  flowchart  for  Subroutine  FRA.TIO. 


3.3.2  Subroutine  GXPSR, 
Input ; 


cjzSmm^n/fishin/ 

ABUltt'0(7OO) 

CJ&tf$N/0UTIUT 

FISNUM 

ITAB 


C0MM0N/FRY  UN3/ 

B3UBK ( 9° ) 

ECF (90) 

ERM(185) 

jhm(i85) 

KRM 

CjdMM0N/SET33/ 

FMASS (200) 
PSIZE(200) 


C^M^N/UTILITI 

K0UT 

NERNT{15) 


Output: 

C^MM^N/j^UTHJT/ 

FP(200) 

Storage  requirement  (exclusive  of  C0MM0N) :  501a ,  321io 

Calling  program:  EAM2,  Sequence  72 
Subroutine  called :  BATMAN 


Flowchart :  Figure  3*9 


This  subroutine  computes  the  distribution  of  total 
fission-product  activity  with  particle  size.  It  first  calls 
BATMAN  to  obtain  the  activity  of  each  fiBBion  product.  The 
activity,  ABUND0,  is  then  multiplied  by  the  appropriate 
exposure-rate  multiplier,  ERM,  and  summed  >7er  each  mass  chain. 

Finally,  Equation  2.27  is  evaluated  and  the  result 
is  multiplied  by  XBT.  The  mnemonics  are  related  to  the  symbols 
of  Section  2.2  as  follows: 

BNEX,  BSUBK(IC)  bj-1 

CRISS  Db‘  "1 
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MCH  =  MCH  41 


_  \ 

r  njorvi  i 

PAf/?  J 

X' 


BATMAN 


MA V  MCH  =  90 
MCH  =0 

XRTU)=O.O.I=I,MAXMCH 
J  =  l 


K  = 


<"  f:rm(ji 

-X 

XRTIMCH1+ 
ABUNDCMK)* 
ABS  ( EH.'M  J]) 


->  Y££_J 


BNEX  =  BSUBK  I LC) 

CRISS  =  CR(8SS  **  BNEX 
RADIAL  ~  EC.r  (LO/IUN1T 
4  f.RlsS*rCr(LC) 
STRAIT  =  RADUl  *CRWS 
TNEX  FISNUM  *xRT(LC) 
LD  •"  I 

xr~ 

FP(LD)=  FP!  1.0  )4(  RADIAL 
*piiiz£  (uvitiwBhex  + 
STRAIT  )  h  TNEX  * 

FMASS  (LD) 


_ :Lo 


LD  -  I  0  41 


LD  *1TAB  > 


LC  =  LC+ 1 


LC*MCH 


FRiN  f 
P3IZEII) 


EF  IIl  , 
I-I,ITAB 

I 


- -  _L<;  NPRNHlOt  ’> 


[RETURNj  ' - 1 


•’iguro  3.9  retailed  flowchart.  for  Subroutine  GXP.Ui. 


3 .  3.;-)  Uuhrm  1 1  ncMCl  IDS  l» . 


Input ; 

C0MM0N/FIBHIN/ 

C0MM0N/UTILT.TY  / 

O0MM0N/0UTFJT/ 

ABUND0(YOO) 

K01IT 

FI3NUM 

INI.TC 

NTRNT(15) 

ITA.B 

MULT (11 1 

NUCLTD  (700) 

MA3CHN 

c0mm0n/fryling/ 

o0mm0n/decay/ 

C0MM0N/SET3/ 

BSUBK(90) 

TIME 

FMA.SS  (200) 

EOF (90) 

Output : 

C0MM0N/0UTPITT 

FP(200) 

PSIZE(200) 

Storage  requirement  (exclusive  of  C0MM0N) :  362B  ,  sUCio 

(Jailing  program:  PAM2,  Sequence  81 

Subroutine  called:  BATMAN 

Flowchart;  Figure  3,10 

ThiB  subroutine  computes  the  distribution  of  a  single , 
user-selected  mass  chain  with  particle  size.  Equation  2,27  is 
computed  in  a  manner  similar  to  that  of  GXPSR. 

Two  options  are  available. 

1.  TIME  =  0,0 

In  this  case  the  FP  array  is  equivalent  to  Ft (dk ) 
of  Section  2.2  for  a  single  value  of  i.  No  decay  calculation 
is  required . 

2.  TIME  >  0.0 

In  this  case  the  FP  array  represents  activity  3 n 
curies.  The  disintegration  rate  is  obtained  by  calling  BATMAN, 
is  converted  to  euriea  per  fission,  and  is  multiplied  by  F^d*;. 
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Provision  hae  barn  made  for  addition  of  a  third 
option  vith  TIME  <  0.0. 
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TZER0=.FALSE. 
TM!NUS  =  .FAlSE. 
FMTA(il)  =  UNtTC  (I) 
FMTA(I2)=UNITC(2) 
FMTB(IG)  =  UNITCd ) 
FMTI3(I7)  =  UNITC(2) 


TZER0-TRUE. 

ABNDM =  1,0 
F1SNUM=FISNUM*  I.E4 
FMTA(II)  =  UN1TF(I  > 
FMTA(I2)=UNITF(2) 
FM18(I6)  =  UNITF(T) 
FMTB(i7)-UNITFI2) 


YES  , 


_ L 
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I DSR  =  (RADIAL  * 
PS1Z£(L0)**BNEX  + 
STRAIT)*  ABNDM* 
FMASSILO) 

|FP(LO)  =  FP(LD)+nSR 
LD=  LO+I 


BRETT 
BSUBK(MASCHN-7I) 
CfiI5SsCR0SS*ttBNEX 
R  A01AL=  ECF(MASCHN- 
7I)/(UNI.T  +  CRISS* 

ECF  (MASCHN  -7||) 
jSTR  AIT = R  ADIAL*CRISS 
ABNDM = ABNDM  #FISNUM| 


ABNDM -ABNDM 
+ABUND01KI) 


Figure  3*10  Detailed  flowchart  for  Subroutine  MCHDEP. 
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PRINT 

PSIZEUI.FPU), 
1=  I.ITAB 


PRINT 

MASCHN 

ABNDM 


, . .  . . 


"3  }  k  ''.iihl-mitlni,  VpUU  ( TWTU'l 

Input : 

Argument  list  C0MM0N/FISHIN/ 

INTP  INUC 

MULT (11) 

NUCLII)  (700) 

XRM 

Output : 

C0MM0N/FHY  jULNu/ 

fcRM(l85) 

JKM(18!p) 

KRM 

Storage  requirement  (exclusive  of  C0MM0N) :  1152e  ,  6l8i0 

Calling  program:  PAM1,  Sequence  129 
Subroutine  called:  UNPACK 
Flowcharts:  Figures  3.11a  through  3.11c 


C0MM0N/UTIIJTY/  Input  tape 

KOUT  NAT 

NraNT(l5)  NMAS 

USTAT 


This  subroutine  reads  a  table  of  exposure-rate  multi¬ 
pliers  {XRM,_R/hr  3  feet  above  an  infinite,  plane  source  emitting 
1  dis  s  cm  )  and  orders  it  by  mass  number.  Fission  products 
for  which  no  card  appears  are  assigned  zero  multipliers.  The 
multipliers  are  entered  in  array  ERM(l85),  cross-indexed  to  NUCLID 
by  the  array  JFM(l85).  The  first  entry  in  ERM  for  each  mass  chain 
1b  flagged  with  a  minus  sign. 
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Figure  3- Ua  Detailed  flowchart  for  Subroutine  XPRM. 


3.4  Induced  Activities . 


3.4.1  Subroutine  IMDC'Dl  (KMITH,  HOB,  KKD ,  TW) . 


Input : 


Ag rumen t  .list  C0MM0N/UTILITy/  Input  Tape 


EMITN 

HOB 

KKD 

TW 


KOUT 

NIK NT (15) 


FAI(7,18) 

im(i8) 

f0g(5,7,i8) 

IIL(7,18) 

130(18) 

KEV(7,18) 

M(7»18) 

MAX 

NA(7,18) 

NS(l8) 

RNX(5 ,7,10) 
3X01(7,3.8) 
GIGIGC (7 ,18) 


Output: 

C^SM0N/INLUCE/ 

ALBF0M 
FAG (7 ,18) 
F0GRNY (7 ,18) 
IS0(l8) 

MAX 

XIAM(7,l8) 


Storage  requirement  (exclusive  of  C0MM0N) :  6l458 ,  3173xo 


Calling  program:  PAM1,  Sequence  131 


Subroutine  called :  TXMSEC 


Flowcharts:  Figures  3»12a  through  3<12c 


This  subroutine  and  INDCD2  are  a  modification  of  the 
program  described  by  Jones  (Reference  4).  The  principal  modifica¬ 
tion  was  elimination  of  the  separate  pass  through  the  program 
for  weapon  casing.  The  program  was  split  into  time-dependent  and 
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time-independent  phases  for  greater  efficiency.  A  new 
variable,  ALBF0M  -  ALB*F0M,  was  introduced  to  facilitate 
comniunicnt]  on  with  INI*:]®. 


IS  =  IS0U) 


PRINT 

I,IS,FACll,I> 
|XLAMll,I),KEV<l,Il 
F0G  11,1,11 
RNY  (1,14) 


L/ 

KE  =  KEV(JJ  ) 

PRINT 
FflKS  l  K,l )) 
RNY  (K, 14) 
K=2,KE 


J=  J+l 


jm- 


PRINT 

F0G(K,J,I), 

--  T 

RNY(K,J,T) 

K=£,KE 

PRINT 
FACU.l) 
XLAM(J,I),KE, 
FOG  (1 4,1) 
RNY(I.J.I) 


Detailed  flowchart  for  Subroutine  IKDCD1. 
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3.^.2  Subroutine  INDCD^. 


Input: 

C  0MM0N / INDUCE / 

ALBR0M 
FAC (7,18) 
F0GRNY  (7,18) 
130(18) 

IMAX 

XIAM(7,18) 

C  0MM0N /DECAY / 

JD 

KD0S 

TENTER 

TEXIT 

TIME 

Output: 

C0MM0N/0UTHJT/ 

FP(200) 


C0MM0N/UTILm/ 

K0UT 

Ni™r(i5) 

C0MM0N/PET3/ 

FMASS(200) 


C0MM0N/0UTR)T/ 

FISNUM 

IIAB 


Storage  requirement  (exclusive  of  C0MM0N) :  262e,  17810 
Calling  program:  PAM2,  Sequence  76 
Flowchart:  Figure  3.13 


See  Subroutine  INDCD1  for  discussion. 
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Figure  3.13  Detailed  flowchart  for  Subroutine  INDCD2. 
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3.4.3  Subroutine  URAJN. 


Input : 


C0MM0N/UTI LITY / 

C0MM0N/  0UTRJT/ 

C^M0N/DECAY/ 

C0MM0K/SET3/ 

K0UT 

FISNUM 

JD 

FMASS  (?no) 

NHfflT(l5) 

ITAB 

KD0S 

TfciW'iEE 

TEXIT 

TIME 

Output ; 

C0M0N/0UTPUT/ 

FP(200) 

Storage  requirement  (exclusive  of  C0MM0N) :  357e >  239io 

Calling  program:  PAM2,  Sequence  74 
Flowchart:  Figure  3.14 

2»3q 

t  This  subroutine  computes  the  activity  of  U  and 
‘  Np  produced  by  capture  of  neutrons  by  U  in  the  device. 

It  evaluates  the  equations  for  decay  of  a  parent-daughter 
pair  in  a  straightforward. manner. 
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Figure  3.1^  Detailed  flowchart  for  Subroutine  UHAK. 
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30  utility  -trogremB. 

3,5,1  ViiTif-t.lon  TTMflgri  /TIME,  IU3SIT,  ~rB’XP). 

Input  la  the  argument  list 

Storage  requirement:  113a,  75io 

Calling  programs : 

tsti'ijr,  Sequence  170 
INDCD1,  Sequence  125 
LIKK9,  Sequence  170,  171 

This  function  converts  time  in  various  units  to 
seconds.  The  input  is 

TIME  x  10IEXP  in  units  coded 

in  IUNIT  as  follows : 

1  seconds 

2  minutes 

3  hours 

4  days 

5  years 


3.5.2  Subroutine  UNBACK  (IA.  12,  IS,  NAME). 
Trmnf  • 

• — sr -*  • 

NAME 

Output; 

IA 

IS 

IZ 

Storage  requirement:  67e ,  55io 

Calling  programs ; 

YIEID,  Sequence  98 
XfEM,  Sequence  90 


li_  TJRSVB  T  NjP  (TOMA  T  T  fl N 

4.1  Input. 

The  PAM  normally  obtains  data  from  three  sources: 

(1)  the  other  modules  of  DEIFIC  via  argument  list  and  C0MM0N , 

(2)  input  cards,  (3)  magnetic  tape  (optionally  replaced  by 
cards).  The  first  source  comprises  the  following  variables : 


FISNUM 

FMASS (200) 

FW 

HOB 

IP0UT 

IS  IN 

ISjikJT 

ITAB 

JD 

JG0 

KDjfe 

MASCHN 

PSIZE(200) 

SIGMA 

SIGMAS 

SLDTMP 

TENTER 

TEXIT 

TIME 

1MSD 

TW 


Number  of  fissions/100 

Mass  fraction  In  size  class 

Fission  yield,  kt 

Height  of  burst,  ft 

Logical  tape  number 

Logical  tape  number 

Logical,  tape  number 

Nuniher  of  particle-size  classes 

Control  parameter 

Control  parameter 

Control  parameter 

User-requested  mass  chain 

Midpoint  uf  aize  class,  p 

Not  used 

Not  used 

Melting  point  of  soil,  °K 
User-requested  time,  s 
User-requested  time,  s 
User-requested  time,  s 
Time  of  soil  condensation,  s 
Total  yield,  kt 


The  Input  to  RAM  from  sources  2  and  3  can  be  categorized 
into  three  classes  (l)  specific  (to  the  computer  run),  (2^  invariant, 

(3)  quasi- invariant.  The  specific  data  are  always  on  cards.  Classes 
2  and  3  are  normally  on  magnetic  tape,  but  either  one  or  both  can  be 
on  cards.  The  invariant  data  are  the  fission-product-tables,  the 
exposure-rate  multipliers,  and  the  fission-yield  tables.  The  soil 
composition  is  classified  as  quasi- invariant  because  only  one  set 
(Nevada  Test  Site)  now  exists.  However,  additional  soil  types  may 
become  available  in  the  future . 


Figure  4.1  shows  the  flow  of  input  cards  to  the  FAM.  The 
squares  represent  card  decks  described  on  the  pages  following.  'The 
invariant  and  quasi-invariant  data  are  described  in  the  Appendix. 
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Figure  4.1  Input  flowchart 


lence 


Mnemonic 


Format 


1 

PAMID(J),  J=l,12 

12A6 

£ 

IFTAPE  (j),  J=l,10 

1011 

3 

NPRNT(j ) ,  j=l,15 

1511 

PAMlil(J)  :  Arbitrary  72  character  particle  activity  module 
identifier, 

IFTAPE (j)  :  File  control  parameters. 

IFTAPE (l)  :  If  FAISE ,  INTP  =  ISIN. 

If  TRUE  and  ISIN  =  5, IOTP  =  12. 

If  TRUE  and  ISIN  /  5, INTP  =  5. 

IFTAPE (2)  :  If  FAISE,  KRD  =  ISIN 
If  TRUE,  KRD  =  INTP 

IFTAPE (3)  :  If  TRUE,  write  PaM  restart  information  as  a  trailer 
on  the  grounded  particles  file  (logical  <?)•  Be 
sure  9  has  ring  in. 

IFTAH3(4)  :  If  TRUE,  the  PAM  expects  restart  information  on 
logical.  9- 

NHIOT(J)  :  Pi-intout  Control  Parameters.  See  Table  4.1 

Deck  1  is  read  by  subroutine  PAM1. 


? 

Card  Sequence  Mnemonic  Format 

1  CAFFIS ,  EMITN  2F10.3 

2  FISSU)  A6 


CAFFIS  :  Capture-to-fisaion  ratio. 

EMITN  ;  Number  of  neutrona  emitted  per  fission. 

FTSSID  :  Type  of  fission  (See  DASA-1600-V). 

Deck  2  is  read,  by  subroutine  PAM1. 

3 

Card  Sequence  Mnemonic  Format 

This  option  allows  the  invariant  PAM  data  (on  distrib¬ 
uted  Reel  B)  to  be  read  into  the  program  on  cards.  For  a  detailed 
description  of  the  data  deck  required  for  this  option  see  the 
Appendix. 
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4.2  Output . 

The  primary  output  of  the  PAM  is  the  array  FP(20O), 
communicated  to  the  Output  Processor  by  C0MM0N / 0UTRJT / .  The 
units  of  F?  may  be  any  of  four,  depending  upon  user  option. 

1.  R.roa.  h"1 

2.  R.m3 

3*  Ci 

4.  equivalent  fissions. 

In  the  Output  Processor  (Subroutine  CAIC),  FP  is 
multiplied  by  the  maas  fraction  per  unit  area  (m_a)  at  each 
grid  point.  The  so-called  normalization  factor,  K,  (R.mi2 .kt”1 .h' 
can  be  obtained  from 

K  =  3.861  x  10~7  , 

where 

a*  =  number  of  particle-size  classes , 

W,  =  fission  yield  in  kilotona , 

and  FP  is  obtained  from  option  1  above. 

Printed  output  is  controlled  by  the  array  UHdJT.  The  effect  of 
setting  each  entry  .TRUE,  is  shown  in  Table  4.1 
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TABLE  4.1 


PAM  Printout  Control 


Index  of 
Array  NIENT 

Subroutine 

Involved 

Frlntout  Resulting  from. 

TRUE  Value 

1 

SETUP 

Transition  Cards  (Warning- 
Produces  same  700  pages) 

2 

SETUP 

Intermediate  Form  of  Nuclide 
Table  (Octal) 

3 

SETUP 

Final  Form  of  Nuclide  Table 
(Octal) 

4 

YIELD 

Fission  Yield  Table 

5 

XERM 

Exposure  Hate  Multipliers 

6 

PKATIC 

Refractory  Fractions  (FR) 

7 

FRATIC 

Square  Boot  of  FR  (BSUBK) 

.  a 

INDCD1 

Information  Stored  for  Use  by 
INDCD2 

9 

BATMAN 

Nuclide  Abundances  (Warning  - 
This  option  combined  with  JD  » 
FAISE  will  bury  you  in  paper) 

10 

GXFSR 

Fission  Product  Activity  va 

Part  Size  (Warning  -  See  9) 

n 

:  INDCD2 

Induced  Activity  (Soil)  vs 

Part  Size  (Warning  -  See  9) 

12 

USAS 

Induced  Activity  (Mass  239)  vs 
Part  Size  (Warning  -  See  9) 

13 

MfIKDEP 

Selected  Mass  Chain  Activity  vs 
Part  Size 

14 

f 

SPARE 

15 

PAM2 

Total  Activity  vs  Part  Size 
(Warning  -  See  9) 

FORTRAN  LISTINGS 
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preceding 

PAGE  BLANK 


oooooonnociorionnonoonnr-.  nooonooooonocioooooooannnnn 


SI8FTC  BATl  LIST, BECK, H94/2 
SUBROUTINE  BATMAN 
VERSION  1 

R  C  TOMPKINS  -•  US  ARMY  NUCLEAR  DEFENSE  LAB8 
AUGUST  1966 

THIS  VERSION  REPLACES  SUBROUTINES  INSEN*  BATMAN*  DECAY* 
THE  INITIAL  VERSION  OF  DELF»C 


THE  FUNCTION  OF  THIS  SUBROUTINE  IS  TO  COMPUTE  RADIOACTIVE  DECAY 
CHAINS  BY  HEANS  OF  THE  BATEMAN  EQUATION 
kLLED  BY  FRATIO*  GXPSR.  AND  HCHDEP 


i  •  *  *  i 

ABEGN (7001 
ABUNDOI 700  I 


H 1 1 5  • 

CN I J ( 680 1 
1BR 

IFIGO 

IFJO 

IGO 

INFORM (111 


KFJD 

LlMtlll 

LSUB 

NUClUJ 

SBRlllI 

SCA  1 15  J 

SDCI15J 

TENTER 

TEXIT 


*  *  *  *  GLOSSARY  *********** 

INITIAL  FISSION  PRODUCT  ABUNDANCES  IN  ATOMS/10Q00 
FISSIONS  IPARALLEL  TO  NUCLID) 

FISSION  PRODUCT  ABUNDANCES  PER  10000  FISSIONS 
ATOMS  AT  THSD  IN  FRATIO 
DISINTEGRATIONS/SEC  AT  TIME  100*11 
DISINTEGRATIONS  FROM  TENTER  TB  TEXIT 
OR  INFINITY  1 JD*2 1 

CONTRIBUTION  OF  ONE  SUBCHAIN  TO  ABUNDO 

BATEMAN  COEFFICIENTS  FOR  ONE  SUBCHAIN 

COUNTER  TO  KEEP  PLACE  IN  BRANCHING  RATIO  TABLE  WHILE 

SCANNING  NUCLIDE  TABLE 

ASSIGNED  GOTO  PARAMETER  CORRESPONDING  TO  IGO 
ASSIGNED  GOTO  PARAMETER  CORRESPONDING  TO  JD 
(LOGICAL!  TRUE  GIVES  ACTIVITY. 

FALSE  GIVES  ATONIC  ABUNDANCES 

TABLE  OF  DAUGHTER  RETRIEVAL  INFORMATION  FOR  EACH 
MEMBER  OF  A  SUBCHAIN.  OBTAINED  BY  TRUNCAT INB  NUCLID 
FROM  THE  LEFT 

{LOGICAL  I  TRUE  COMPUTES  EXPOSURE  RATE* 

FALSE  COMPUTES  DOSE 

(LOGICAL!  TRUE  COMPUTES  DOSE  PROM  TENTER  TO  TEXIT. 
FALSE  COMPUTES  DOSE  FROM  TENTER  TO  INFINITY 
SEE  IF JD 

3UBCMA1N  TABLE  OF  INDICES  FOR  MULT  TO  FIND  CURRENT 
BRANCHING  PATH 

COUNTER  FOR  SUBCHAIN  MEMBERS 

CROSS  REFERENCE  OF  SUBCHAIM  MEMBERS  TO  INDEX  IN  NUCL 

SUBCHAIN  branching  ratios 

FISSION  YIELDS  OF  SU6CHAJN  MEMBERS 

DISINTEGRATION  CONSTANTS  OF  SWBCHAIN  MEMBERS 

ENTRY  TIME  (SEC!  FOR  DOSE  CALCULATION  WITH  JD  •  FAL8I 

EXIT  TIME  (SEC!  FOR  DOSE  CALCULATION 

WITH  JD  *  FALSE,  KDOS  ■  TRUE 

TIME  (SECI  AT  WHICH  EXPOSURE  RATE  OR  HASS  CHAIN 
DEPOSITS  IS  CALCULATED  WITH  JD  ■  TRUE 


BAIt 

0 

BAT  1 

1 

BAT1 

2 

BAT1 

3 

BAT  1 

4 

BAT  1 

5 

SAT  1 

6 

BAT1 

7 

BAT  1 

a 

BAT  1 

9 

BAT  1 

10 

BAT  1 

11 

BAT  1 

12 

BAT  1 

13 

BAT  1 

14 

BAT  1 

15 

BAT  1 

16 

BAT  1 

17 

BAT  1 

18 

BAT  1 

19 

BAT  1 

20 

BAT  1 

21 

BAT  1 

22 

BAT  1 

23 

BAT  1 

24 

BATl 

25 

BAT  1 

26 

BATl 

27 

BATl 

28 

BATl 

29 

BATl 

30 

BATl 

31 

BATl 

32 

BATl 

33 

BATl 

34 

BATl 

35 

BATl 

36 

BATl 

37 

BATl 

38 

BATl 

39 

DBAT1 

40 

BATl 

41 

BATl 

42 

BATl 

43 

BATl 

44 

BATl 

45 

BATl 

46 

BATl 

47 

BATl 

48 

BATl 

49 

PRECEDING 
PAGE  BUNK 


nan 


COMMON/OUTPUT/ 

4  t*  *  MtlMU 

«  r  ■  o'»«n 

2  <  HASCHN 

COHMON/UTILTY/ 


COHHON/ INDUCE/ 

1  ALBFOM 

2  .LMAX 


.SIGMAS 


(4*1/1  #»  « 


kiftflm*  I  «  *  * 

ji  nr  nn  I 


.FAC  ( 7 • 1 S ) « FQQRNY  t  7.161 » ISO  (18) 
,  XLAM  (7.16) 


COHMON/FISHIN/  . 

1  ABEON  (700)  i A0UNDO17DO  )  .BRANCHI130)  .CAPFJS 


2  . DCON  (7601  .  IBRA 

3  .HULT  (lil  « NUCL l D( 700  1 

COMMON/DECAY/ 

1  IQO  .JD 

2  .TEXIT  .TINE 


. MAXNUC 


.TENTER 


COMM0N/FRYLNG/  „  ..... 

1  BSUBK  (901  ,  ERM  (1851  .  JRH  (1851  * 

COMMON/SEV  3/DUNmY (3753) 

DIMENSION  EFAC  111)  .K8R  (11) 

1  . 1 NFQRH Ill  1  iL(H  111)  » NUC 

2  .SCA  (111  rSDC  Ill) 

LOGICAL  JD.KDOS. 1GO.FLAO.NPRNT 

SET  INITIAL  VALUES 
DO  1  I  >  1.1 NUC 
1  ABUNDOU)  >0.9 
JBR  *  0 

BEGIN  MAIN  LOOP  THROUGH  THE  NUCLI0E  TABLE 

10  DO  500  IN  *  1. I NUC 

FIND  THE  NEXT  NURLIDE  THAT  BEGINS  A  SUBCHAIN 
IF  INUCLIDIIN1111.500.A99 

SET  parameters  for  oeginning  of  a  subchain 

MEMBERSHIP  COUNTER 

11  LSUB  »  1 

BRANCHING  RATIO  COUNTER 
LBR  *  IBR 
K8R Ill  ■  LBR 

STARTING  INDEX 


11851  . KRN  . EOF  190  I 


BAT!  50 
BATl  51 

DM* i  7 2 

BAT l  53 
BATl  54 
CAT i  55 
BAT  1  5 fc 

BAT 1  57 

BAT  1  56 

BAT  1  59 

BAT  1.  60 

BAT  1  61 

BAT  1  62 

BAT  1  63 

BAT  1  64 

BAT  1  65 

BAT  1  66 

BAT  1  67 

BAT  1  66 

BAT  1  69 

BAT  1  70 

BAT  1  71 

BAT  1  72 

BAT  1  73 

BAH  74 
BAT  1  75 

BAH  76 
BATl  77 
BAH  78 
BATl  79 
BATl  80 
BATl  81 
BATl  82 
BAH  83 
BATl  84 
BATl  85 
BATl  86 
BATl  87 
BATl  SB 
BATl  89 
BATl  90 
BATl  91 
BATl  92 
BATl  93 
BAH  94 
BATl  95 
BATl  96 
BATl  97 
BATl  98 


o  u 


NUC 1 1 1  «  IN 

12  L I Mt  LSUB  ]  a  4 

C  PROCESS  A  SUBCHAIN  MEMBER 

13  KP  »  NUCILSUBI 


BAT  1  99 

BAT  1  100 
BAT  1  101 
BAT  1  102 


in  •  LiniuSuBj 

INFO  *  MODI  lABS(NUCLlD(KPi],HULT{5l  I 
] NFORH (LSUB I  >  INFO 
jNC  a  i 

C  SET  UP  SU9CHA 1 N  DISINTEGRATION  CONSTANTS 
SDCItSUB]  b  DCONIKP) 

CHECK  FOR  END  OF  SUBCHAIN 

IF  [INFO. EO. 41  GO  TO  21 
CHECK  FOR  BRANCHING 

IF  (MODI  INFO. MULT  1 1 1 1 «LT . 4  J  GO  TO  14 
SBRILSUBI  «  1.0 
00  TO  15 

C  SET  UP  SUBCHAIN  BRANCHING  RATIOS 

14  LB  «  LBR  ♦  5  -  IM 
SBRILSUBI  b  SRANCHILBI 

C  EXTRACT  THE  DAUGHTER  INCREMENT 

15  ID  «  MODI  INFO. NULT!lH->in/HULT(  Ml 

C  SEE  IF  THIS  INCREMENT  SHOULD  BE  NEGATIVE 

IF  I  MOD l INF0,MULT(2) 1 /MULT l II .EG. I  MI  GO  TO  16 
C  SET  PARAMETER  TO  LOOK  AHEAD  FQR  BRANCHING  RATIO  OF  DAUGHTER 
Kl  «  KP 
GO  TO  17 

C  SET  PARAMETER  TO  LOOK  BEHIND  FOR  BRANCHING  RATIO  OF  DAUGHTER 

16  KI  >  1 
LBR  a  0 
INC  a  -INC 

COMPUTE  DAUGHTER  INDEX 

17  NDAUT  a  KP  ♦  INC#ID 
KDA  a  NDAUT  -  1 

C  STEP  THROUGH  THE  NUCLIDE  TABLE  TO  ESTABLISH  THE  CORRECT  INDEX  FOR 
C  THE  BRANCHING  RATIO  OF  THE  DAUGHTER 
DO  20  K  «  KI.KDA 

20  LBR  »  LBR  ♦  4  »  ! ABS I  MOD (NUCL ! D I K I . MULT ( it  I] 

KBRILSUB+II  ■  LBR 

ACCEPT  THE  DAUGHTER  FOR  MEMBERSHIP  IN  THE  SMBCHAIN  AND  RECYCLE 
LSUB  a  LSUB  ♦  1 
IF  [LSUB.GT.lll  GO  TO  ISO* 

NUCILSUBI  a  NDAUT 
GO  TO  12 

CC  A  SUBCHAIN  HAS  NOW  BEEN  SET  UP  AND  CAN  BE  STUDIED  IN  TOTO 
C  ELIMINATE  UNI-MEHBERED  SUBOHAIN 

21  IF  tLSUB.EO.ll  Go  TO  500 

C  RUN  BACK  THROUGH  THE  SUBCHAIN  TO  ACCUMULATE  BRANCHING  RATIOS 
ASSIGN  23  TO  LGO 
JL  «  0 

SCAtLSUBl  •  1,0 
LAST  a  LSUB  *  1 
DO  22  L  «  2. LSUB 
LBACK  a  LAST  -  L 
SCAILBACK]  a  1,0 
GO  TO  LGO, 122*23] 

C  FIND' THE  LAST  BRANCH  IN  THE  SUBCHAIN 
23  IM  «  LIMILBACKJ 

IF  t HOD ( INFORMlLBACK]  .HULTUMI J/HULTI IM-11 122,22,24 


oATi  iuo 
BAT  1  104 
BAT  1  105 
SATi  iub 
BAT  1  107 
BAT  1  106 
BAT  1  109 
BAT  1  110 
BAT  1  111 
BAT  1  112 
BAT  1  113 
BAT  1  114 
BAT  1  115 
BAT  1  116 
BAT  1  117 
BAT  1  118 
BAT  1  119 
BAT  1  120 
BAT  1  121 
BAT  1  122 
BAT  1  123 
BAT 1  124 
BAT  1  125 
BAT  1  126 
BAT  1  127 
BAT  1  128 
BAT  1  129 
BAT  1  130 
BAT  1  131 
BAT  1  132 
BAT  1  133 
BAT  1  134 
BAT  1  135 
BAT 1  136 
BAT  1  137 
BAT1  138 
BAT  1  139 
BAT  1  140 
BAT  1  141 
BAT  1  142 
BAT  1  143 
BAT  1  144 
BAT  1  145 
BAT  1  146 
BAT 1  147 
BAT  1  148 
BAT  1  149 
BAT 1  150 
BAT 1  151 
BAT 1  152 
BAT  1  153 
BAT  1  154 
BAT 1  155 
BAT  1  156 
BAT  1  157 
BAT 1  158 
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* 


24  Jl.  *  LGACK 
ASSIGN  22  TO  ISO 

22  SCAILBACKJ  ■  S8RUBACK)*SCA(LBACK  +  1! 

SCA(lSuB)  ■  0,0 

CORRECT  FISSION  YIELDS  FOR  3RAN0H ING 
*LA5  *  .FAuSt- 
DO  25  J  «  l.LSUfl 
Jfc  «  NUCUI 

SCAijI  •  sCai : 

IF  (FLAG)  GO  TO  25 

C  HAKE  A  NOTE  IF  AT  LEAST  ONE  VALUE  OF  SCA  IS  NONTRIVIAL 
IF  ISCAUIJ2S.25.27 
27  FLAG  ■  .TRUE. 

25  CONTINUE 
C 

C  OMIT  COHPUT7  TJONS  FOR  TRIVIAL  SUBCHAIN 
IF  I. NOT. FLAG!  GO  TO  30 
C 

CC  THE  CENTRAL  COMPUTATIONS  BEGIN  AT  THIS  POINT 
C 

on  »eo  r:  *  i.lsub 

compute  exponentials  before  entering  inner  loops 

IF  IJDJ  TENTEfl  •  TIME 
EFACINI  «  EXP l -SDC l N I "TENTER  I 

IF  (KDOS1  EFACINJ  =  EFACINI  -  EXP  I -SDC I N I "TEX  I  T I 
B  *  OlO 
C 

DO  15V  I  «  1 .  N 
DO  150  K  *  I.N 
C 

COMPUTE  BATEhAN  COEFFICIENTS 
CNIJ  ■  1.0 
DO  106  L  >  I.N 

IF  InTgT.LJ  CNIJ  ■  CNI  J*SBC (L  J 
IF  IlTEQ.KJ  GO  TO  106 
FACTC  «  SDC IL  J  -  SDCIK1 

IF  lABSCFACTCJ.LT.l.E-15)  FACTC  ■  SIP.NI1.E-15.FACTCI 
CN.J  *  CNI J/FACTC 
106  CONTINUE 

COMPUTE  BATEHAN  EQUATION.  BRANCH  TO  109  FOR  INTEGRATED  FORM 
C 

0  «  CNI J*SCAI I )*EFACIK] 

IF  (JDJ  00  TO  150 
C  PREVENT  DIVIDE  CHECK  ERROR 
IF  ( S DC  C K 1 1150.150.110 
110  0  *  O/SDCIKI 

150  G  *  B  ♦  0 

C  STORE  RESULTS  IN  ABUNDANCE  TA3LE 
IF  (81200. 200. 151 

151  IF  [ I  GO !  B  »  B*SDCINI 
NK  >  NUCINJ 

ABUNDOtNKJ  •  ABUNDOINK]  *  B 
200  CONTINUE 
C 

C  SET  UP  A  NEW  SUBCHAIN  STARTING  FROM  DEEPEST  UNEXPLORED  BRANCH 

30  IF  (JLI50C. 499.31 

31  LSUB  «  JL 

limilsubi  •  LIMILSUB5  -  1 

LBR  a  KBRILSU8I 
GO  TO  13 


BAT  1  159 
BAT1  160 
BAT  1  161 
BATl  162 
BAT  1  163 
BATl  164 
BATl  165 
BATl  166 
BATl  167 
BATl  160 
BATl  169 
BATl  170 
SAT  1  171 
BATl  172 
BATl  173 
BATl  174 
BATl  175 
BATl  176 
BATl  177 
BATl  17B 
BATl  179 
BATl  160 
BATl  181 
BATl  162 
BATl  163 
BATl  164 
BATl  165 
BATl  16b 
BATl  187 
BATl  18B 
BATl  169 
BATl  190 
BATl  191 
BATl  192 
BATl  193 
BATl  194 
BATl  195 
BATl  196 
BATl  197 
BATl  196 
BATl  199 
BATl  200 
BATl  201 
BATl  202 
BATl  203 
BATl  204 
BATl  205 
BATl  206 
BATl  207 
BATl  206 
BATl  209 
BATl  210 
BATl  211 
BATl  212 
BATl  213 
BATl  214 
BATl  215 
BATl  216 
BATl  217 
BATl  23 
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VIO  UU  WUU  V  u  o  wuu 


1301  WRITE  (K0UT.1351)  NUCL 1 D ( IN  I 

STEP  UP  BRANCH  C8UNTER  IN  MAIN  LOOP 

499  IBR  »  IBR  ♦  A  -  MOO 1 1 ABS INUCL ID  I  IN II *  MULT  1 1 1  1 

500  continue 

IF  i NPRNT C 9 1  1  WRITE  (KOUTtlOOOI  INUCL ID ( I ] » ABUNDO ( 1 1 , I al, INUCI 
RETURN 

1000  FORMAT  I17H10UTPUT  OF  BATMAN//8X6HNUCU D11X6HABUND0/ 

1  15X012, 5X1PE12.41J 

1351  FORMAT  I25H0SUBCHA1N  BEGINNING  WITH  012, 8M  TOO  BIG) 

END 

IBFTC  TIMS6X  LIST, BECK, M94/2 
FTIMSGC  -  3/66  -  TOMPKINS 

FUNCTION  TIMSEC  [TIME, lUNtT, IEXPJ 

GO  TO  11,2.3,4,5] , IUN1T 

1  SCALE  *  1.0 
GO  TO  6 

2  SCALE  *  60(0 

GO  TO  6  1 

3  SCALE  «  3.6E3  , 

30  TO  6 

4  SCALE  «  8.64E4 
GO  TO  6 

5  SCALE  a  8.64E4*365,25 

6  TIMSEC  ■  TIME*SCALE*10 . ***EXP 
RETURN 

end 

IBFTC  UNPAX  LIST, DECK, M94/2 

SRUNPACK  -  3/66  -  MEREDITH 

SUBROUTINE  UNPACK 
1  tlA, IZ, IS.NAKEl 
C 

JX  a  a 

JY  *  4096 

C 

IA  a  NAME/JY 
|Z  a  (NAME  -  IA*JY!/JX 
IS  a  MOD  [NAME, JX I 
C 

10  RETURN 
END 


RATI  219  i 
BAT1  220 
BAT1  221 
BAT  1  222 
BAT  1  223 
BATl  224 
BATl  225 
BATl  226 
BATl  227 
BATl  228 
RATI  229 
BATl  230 
BATl  231 
TIMS  0 
TIMS  1 
TIMS  2 
TIMS  3 
TIMS  4 
TIMS  5 
TIMS  6  ' 

TIMS  7 
TIMS  8 
TIMS  9 
TIMS  10  | 

TIMS  11 
TIMS  12 
TIMS  13 
TIMS  14  i 
TIMS  15 
TIMS  16  ! 

TIMS  17 
TIMS  18 
TIMS  19 
UNPA  0 
UNPA  1  | 

UNPA  2  I 
UNPA  3  ! 

UNPA  ,4  | 

UNPA  5  I 
UNPA  6 
UNPA  7  ! 

UNPA  0 
UNPA  9 
UNPA  10 
UNPA  11 
UNPA  12 
UNPA  13 
UNPA  14 


•  lor  iw  rnmai 


U  a  o i  $ wcuu  * r 


SUBROUTINE  PAN* 

l  (HOB  .SLDTHP  ,TnS0  .  TW 


R  C  TOMPKINS 
OCTOBER  1966 


.lavui  i iruui  .aiuna  i 

US  ARMY  NUCLEAR  DEFENSE  LABS 


PAH1  1 
PAM1  2 
FANi  j 


EXECUTIVE  PROGRAM  FOR  TIME-INDEPENDENT  PART  OF  PARTICLE-ACTIVITY 
MODULE 

called  by  links 

calls  SETUP'/  YIELD.  XPRM,  INDCD1.  AND  FfiATIO 
C 

C  ■»•***•••<>•<»**  GLOSSARY  ******** 

C 

C  CAPFlS 
C  EMITN 
C  FISSID 
C  IFTAPEtlOJ 
C 
C 
C 
C 
C 

c 

c 

c  ipam 
c  isin 

C  KOUT 
C  KRD 
C  NPRNT1201 

C 
C 
C 
C 

c 
c 
c 

C 

c 

C 

c 

C 
C 

c 
c 
c 

C 

c 
c 
c 
c 
c 

C  PAMSDU2) 


CAPTURE-TO-FISSION  RATIO 
NUMBER  OF  NEUTRONS  EMITTED  PER  FISSION 
SIX  CHARACTER  IDENTIFIER  OF  FISSION  TYPE 
LOGICAL  ARRAY  to  CONTROL  FILE  MANIPULATION 
ill  TRUE  -  SET  1NTP  NOT  EQUAL  TO  ISIN 
FALSE  -  SET  INTP  *  ISIN 

12)  TRUE  -  SET  KRD  «  INTP 
FALSE  -  SET  KRD  ■  ISIN 

13)  TRUE  -  WRITE  FILE  IPAM 

[ 4 )  TRUE  -  READ  FILE  IPAM  INTO  MEMORY  AND  RETURN 
(5-101  SPARES 

BINA1TY  FILE  OR  PAH1  OUTPUT  FOR  RESTARTS 
INPUT  FILE  (BCD)  USED  BY  OTHER  DELFIC  MODULES 
BCD  FILE  OF  PAM  OUTPUT  FOR  PERIPHERAL  PRINTING 
INPUT  FILE  (BCD!  CONTAINING  SOIL  PARAMETERS 
LOGICAL  ARRAY  TO  CONTROL  WRITING  OF  KOUT.  TRUE  *  MR  I TEPAM1 
(II  SETUP  -  TRANSITION  CARDS  t  WARNING  -  PRODUCES  SOHEPAM1 
700  BABES  I  PAM1 

SETUP  -  INTERMEDIATE  FORM  OF  NUCLIDE  TABLE  tOCTALPAMl 


PAMi 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAMI 
PAM1 
FAM1 
PAM  1 
PAM1 
PAM1 
PAM  1 
PAM  1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 
PAM1 


121 
( 3 ) 
141 

(5) 

(6) 
17) 
101 
!  9 1 


SETUP  r  PINAL  FORM  OF  NUSLiDE  TABLE  IOCTAL1  PAMi 

YIELD  -  6ISSI0N  YIELD  TABLE  PAMI 

XPRM  -  EXPOSURE  NATE  MULTIPLIERS  PAMI 

FRATIO  -  REFRACTORY  FRACTIONS  IFR1  PAMI 

FRATIO  -  SQUARE  ROOT  OF  RR  I6SUBK]  PAMI 

INDCOl  >  INFORMATION  STORED  FOR  USE  BY  INDCD2  PAMI 

BATMAN  -  NUCLIDE  ABUNDANQES  (WARNING  -  THIS  PAMI 

OPTION  COMBINED  WITH  JD  ■  FALSE  WILL  BURY  YOU  PAMI 
IN  PAPER1  PAMI 

GXPSR  -  SISSIQN  PRODUCT  ACTIVITY  VS  PART  SIZE  PAMI 
(WARNING  -  SEE  (91 1  PAMI 

INDCD2  -  INDUCED  ACTIVITY  I  SO IL )  VS  PART  SIZE  PAMI 
(WARNING  -  SEE  (911  PAMI 

URAN  •  INDUCED  ACTIVITY  l  239]  VS  PART  SIZE  PAMI 
(WARNING  -  SEE  19’ )  PAMI 

MCHDEP  -  SELECTED  HA  CHAIN  ACTIVIY  VS  PART  SIZEPAM1 
SPARE  PAMi 

(15)  PAM2  •  TOTAL  ACTIVITY  VS  PART  SIZE  (WARNING-SEE  9PAM1 
116-201  SPARES  PAMI 

RUN  IDENTIFICATION  FOR  PARTICLE -ACTIVITY  MODULE  PAMI 


110) 

(11) 

(12) 

(13) 
E 141 


4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


o  o  o  o  ooo  on 


COMMON/F  I  SHI N/ 

1  ABEGN  (700  3  »  A  BUNDO  (7*0)  .BRANCH  1 130  i  .CAPHS 

2  .DGON  (  700  )  .  2  BRA  . (NUC  .HAXHUC 

3  .MULT  (11)  »  NUCL I D ( 70  0 ] 

COMMON/ INDUCE/ 

1  AL8F0M  .FAC  1 7. 10 J .FOQRNT ( 7. 18 ) . ISO  I 

2  .LMAX  .XLAM  (7.181 

COMHON/UTILTV/ 

1  KOUT  .NPRNT  (15J 

COMMON/FRYLNG/ 

1  BSUfiK  190)  .ERM  (105)  . JRM  (1851  #KRM 

common/output/ 

1  F1SNUM  .FP  7  *-:0  0 1  » FM  .ITAB 

2  .MASCtiN  .  SIGMAS 

dimension 

1  PAMID  i 12 J 
LOGICAL 

1  NPRNT  . I FTAPE  ? 11 1 


,IFT APE  fill 


>  tCF { 90 1 


PAMi  54 
PAM1  55 
PAMI  50 
PAMI  57 
PAMI  50 
PAMI  59 

0lM4  *  M 

«  «•  •  *  V 

PAMI  61 
PAMI  62 

•  -  ■» 

• «" *  UM 

PAMI  64 
PAMI  65 
PAMI  66 
PAMI  67 
PAMI  66 
PAMI  69 
PAMI  70 
PAMI  71 
PAMi  72 
PAMI  73 
PAMI  74 


PAMI 

1  FORMAT  (12A6/10Ll/20li)  PAMI 

2  FORMAT  I2F1O.3/A0!  PAMI 

3  FORMAT  I1H1///51X19H*  ********  *//12Xl0lHT  ME  D  E  P  A  R  PAMI 

1TMENT  OF  DEFENSE  FALLOUT  PfiEDICTI  PAMI 
20  >4  S  Y  S  T  E  M//51X19H*  ********  *////46X24HPARTICLE  ACTPAMl 
3 1 V I TY  M0DULE///55X 11HPREPARED  BY/43X34HUS  ARMY  NUCLEAR  DEFENSE  LA9PAM1 
40RATORY/47X26HEDGEWOOD  ARSENAL.  MARYLAND////24X12A6 1  PAMI 

4  FORMAT  (////48X23HC0NTR0L  VARIA8LE  ARRAYS/ /48X9M I  FTAPE  (I  1/30H10L5/PAN1 

1//48X8HNPRNTI I J/20X15L5J  PAMI 

5  FORMAT  I////40X31MCAPTUHE  -  TO  -  FISSION  RAilO  IS, FID. 31  PAMI 

6  FORMAT  (//35X41HNUMBER  OF  NEUTRONS  EMITTER  PER  FISSION  I8.FlO.3J  PAMI 

7  FORMAT  I//47X19MTYPE  OF  FISSION  IS  A6I  PAMi 

0  FORMAT  C//23X55HTHE  CLOUD  REACHED  THE  SOIL  CONDENSATION  TEMPERATURPAMl 


IE  OF  F7.1.4H  AT  F8.2.5H  SEC.) 

9  FORMAT  I//42X14MTOTAL  YIELD  IS.1PE12.4.10N  KILOTON8.I 

10  FORMAT  (//41X16MF1SSI0N  YIELD  I S , 1PE12 , 4. 10H  KILOTONS.) 

11  FORMAT  1//32X9HTHERE  ARE.I4.36H  PARTICLE  GLASSES  WITH  SIGMA  OF. 

1  F7.4.1H.I 

12  FORMAT  I//41X22HTHE  HEIGHT  OF  BURST  J3.F9.3.6H  FEET.) 


••I**************.************** ****«***********************************PAM1  90 

PAMI  99 

KOUT  «  ISOUT  PAMi  100 

J*»AM  ■  I  POUT  PAMI  101 

I NTP  «  I S IN  PAMI  102 

KRD  ■  (SIN  PAMI  103 

READ  ( ISIN.l)  PAMI  104 

1  (PAMID  ( II, 1*1.12). ( I FTAPE (Jl . J*l» III . I NPRNT IK  I  .K«l. 15 1  PAN1  105 

(Ft IFTAPE (4  J ]  GO  TO  150  PAMI  106 

READ  IISIN.23  PAMI  ,107 

1  CAPF IS.EMI TN.F I SS I D  PAMI  108 

25  WRITE  IK0UT.31  PAMI  109 

1  (PAMID! 1 1 1 1*1*131  PAMI  110 

WRITE  IK0UT.4J  PAMI  111 

1  I  IFTAPE! J 1 »  J*k  f 10 1 . 1 NPRNT (K  J . K*l, 151  PAMI  112 

WRITE  fKOUT #  9)  T«  P*Ml  113 
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WRITE  (KOUT.lOl  FW 

PARI 

114 

WRITE  t  kqut , 7 ;  MSS1D 

P  AMI 

115 

WRITE  t  KOUT .  12 )  HOS 

P  AMI 

116 

write  [kout, oi  c*pe i s 

PAM1 

117 

WRITE  [KOUT, 61  EH I TN 

PAH1 

11B 

WRITE  [KOUT, 81  sldtmp.thsd 

P  AMI 

115 

itavTC  rvniir  441  •TAD.CrflMA 

PAM  1 

i  ?n 

I  f  [  I  FT  APE  Ml  1  RETURN 

PAM1 

121 

in  I  FT APE  III .AND.  1$  IN.EQ .5 1 INTP-12 

PAM1 

122 

if  umtJCM  i  lU'i  ?«i«  mu  «  i  f  mtd*s; 

P  AMI 

1  31 

l  F  (| ETAPE  f  2 )  ]  KRD» i  ntp 

PAMl 

124 

50  CALL  SETUP 

P  AMI 

125 

1  ( I  NTP  .MAXMUL) 

PAM1 

126 

CALL  YIELD 

PAHl 

127 

1  IINTP.FISSIDI 

P  AMI 

126 

call  xprh 

P  AMI 

129 

1  1 1 NTP  J 

PAM1 

130 

CALL  INDCDi 

P  AMI 

131 

1  (EM’TN  ,H08  , KRU  ,TW  1 

PAM1 

132 

I F  IEMITN.LE.3.0)  LMAX*0 

PAhl 

133 

CALL  FRATIO 

PAHl 

134 

1  (SLDTMP  , TMSD  , MCHN  1 

P  AMI 

135 

IF  (  I FTAPE  1 3  1J  GO  TO  100 

PAM1 

136 

REWMU  IPAN 

P  AMI 

137 

RETURN 

P  AMI 

138 

100  WP1TE  {  J P AM ] 

P  AMI 

135 

1  C+PFIS,  ALfif'OK.LMAX.EHlTN,  FISSID 

P  AMI 

140 

WRITE  II-Afll 

PAM1 

141 

1  INUC, I 9R A , MAXMUL » KRH , McUN 

P  AMI 

142 

WRITE  [ I P AM  1 

PAM! 

143 

1  (MULT(1J,IS1, HAXHUL ) 

PAM1 

144 

WRITE  C I  PAM  J 

P  AMI 

145 

i  inuclid; ji .dconi J1,ABEGNI Jl. j=i, ihucj 

PAM1 

146 

WRITE  IIPAM1 

PAM1 

147 

1  ( BRANCH ( K ] » K«1 ,  IBRAJ 

PAK1 

148 

WRITE  IIPAM) 

RAMI 

149 

1  !ERM[L1,JSMIL!,L*1,KRM] 

PAM1 

150 

WRITE  II PAR) 

PAMl 

151 

1  tBSUBK[M)»ECF[M),M*l»HCHN) 

PA111 

15? 

WRITE  IIPAH) 

PAMl 

153 

1  [ (F  AC ( I • J 1 »  FOQRNY Il.Jl* XL AM (l.Jl. 1*1.71.1  SO IJ|.J*l.iBt 

P  AMI 

154 

ENDFILE  IPAM 

PAMl 

155 

REWIND  IPAM 

PAMl 

156 

RETURN 

PAMl 

157 

150  READ  I1PAM1 

PAMl 

156 

1  CAPFIS.ALBF0M.LMAX.EM1TN>FISS!D 

PAMl 

159 

HEAD  ( I PAM  1 

PAMl 

160 

1  INUC, IBRA, MAXMUL. KRM.HCMN 

PAMl 

161 

READ  1 I  PAM  1 

PAMl 

162 

1  IMULTM  1,1*1.  MAXMUl) 

PAMl 

163 

READ  IIPAM] 

PAMl 

164 

1  [NUCLIDIJJ  .DCONI  JJ.ABIGNU)  .Jsl.INUCI 

PAMl 

165 

READ  IIPAM) 

PAMl 

166 

1  IBRANCHIKJ.K-l, IBRA) 

PAMl 

167 

READ  IIPAM) 

PAMl 

168 

1  (ERMtU.JRH:il.L*i,KRM] 

PAMl 

169 

REED  IIPAM) 

PAMl 

173 

1  I8SUBK (Ml »ECF[Ml ,M*1, MCHN  ) 

PAMl 

171 

READ  I IPAM  5 

PAMl 

172 

1  ( (FAC  I! »  JI , FOQRNY 1 1 « J  3  rXLAM II < JI . I *1. 71 . ISO  1 J I . J*l« 101 

PAMl 

173 

nnonnnoonnnnononnoooo  a-r-  noooonormnnonorionnonnooonnooooo 


REWIND  I  PAM 
GO  TO  25 
END 

SIDFTC  SUPl  LIST, DECK, M94/2 
SUBROUTINE  SETUP 
1  tlNTP.MAXMUU 
VERSION  1 

R  C  TOMPKINS  --  US  ARMY  NUCLEAR  DEFENSE  LABS 


ALLED  0V  PAM1 


BHANCHM.50] 


BRSUM 

BRTEST 

oatno 

OCON 1700) 
DISOM 


KLIFE 

IBRA 

ibrat 


ind 

INPUT 
INTP 
INUC 
JUKI  T 


ISlST 

ISTOP 

iTRUNC 

JBRAT 

K2N0 


GLOSSARY 


TABLE  OF  BRANCHING  RATIOS  THAT  LIE  BETWEEN  0  AND  1,  SUPl 
I.E,,  REPRESENT  NONTRIVIAL  BRANCHES.  IT  IS  ORDERED  SUPl 
primarily  by  increasing  values  of  nuclid  AND  SECON-  SUPl 
DARILV  BY  DAUGHTER  POSITION  WITHIN  NUCLID.  SUPl 

TEMPORARY  STORAGE  FOR  BRANCHING  RATIO  READ  FROM  INPUT  SUPl 
RECORD  SUPl 

SUM  OF  BRANCHING  RATIOS  FOR  A  SINGLE  PARENT  SUPl 

TOLERANCE  FOR  COMPARISON  OF  BRSUM  WITH  UNITY  SUPl 

i INTEGER)  TEMPORARY  STORAGE  F$R  ATOMIC  NUMBER  OF  SUPl 

DAUGHTER  READ  FROM  INPUT  RECORD  SUPl 

TABLE  OF  D 1 S 1 NTEGA7 l ON  CONSTANTS  PARALLEL  TO  NUCLID,  SUPl 
SET  TO  ZERO  FOR  STABLE  NUCLIDES.  ($EC**-1I  SUPl 

I  INTEGER)  TEMPORARY  STORAGE  FOR  ISONEHIC  STATE  OF  SUPl 
DAUGHTER  READ  FROM  INPUT  RECORD.  0  FOR  GROUND  STATE.  SUPl 
1  AND  2  FOR  EXCITED  STATES.  SUPl 

(INTEGER]  TEMPORARY  STORAGE  FOR  MASS  NUMBER  OF  SUPl 

DAUGHTER  READ  FROM  INPUT  RECORD  SUPl 

FRACTIONAL  PART  OF  HALF-LIFE  READ  FROM  INPUT  RECORD  SUPl 
NUMBER  OF  ENTRIES  IN  ARRAY  BRANCH  SUPl 

ASSIGNED  GOTO  PARAMETER  FOR  EXISTENCE  OF  BRANCHING  ON  SUPl 
RECORD  BEING  PROCESSED  SUPl 

CHARACTERISTIC  OF  HALF-LIFE  READ  FROM  INPUT  RuCORD  SUPl 
WORD  POSITION  INDICATOR  FOR  LOCATING  DAUGHTERS  IN  SUPl 
PACKED  WORD.  USED  AS  INDEX  OF  ARRAY  MULT.  SUPl 

INBEX  OF  INSERTION  POINT  IN  ARRAY  NUCLID  FOR  NEW  ENTRYSUP1 
NAMELIST  NAHS  FOR  PRINTOUT  OF  INPUT  RECORD  SUPl 

INPUT  FILE  NUMBER,  NORMALLY  CORRESPONDS  TO  BYSIN1  SUPl 

NUMBER  OF  ENTRIES  IN  ARRAYS  NMCUD  AND  DCON  SUPl 

UNIT  OF  NALF-tllFE  READ  FROM  INPUT  RECORD  SUPl 

1  -  SECONDS  SUPl 

2  -  MINUTES  S5JP1 

3  -  HOURS  SUPl 

4  -  days  SUPl 

5  -  YEARS  SUPl 

ASSIGNED  GOTO  PARAMETER  FOR  SPECIAL  HANDLING  OF  FIRST  SUPl 
INPUT  RECURD  SUPl 

ASSIGNED  GOTO  PARAMETER  TO  SIBNAL  A  DISABLING  ERROR  SUPl 
FOR  PANIC  EXIT  AFTER  PROCESSING  SUPl 

TEMPORARY  STORAGE  FOR  RIGHT-MOST  5  OCTAL  POSITIONS  OF  SUPl 
NUCLID  9UP1 

ASSIGNED  GOTO  PARAMETER  SIMILAR  TO  5BRAT  SUPl 

ASSIGNED  GOTO  PARAMETER  FOR  ACTION  TO  BE  TAKEN  IF  SUPl 
FIRST  SEARCH  COR  DAUGHTER  FAILIS  SUPl 

ASSIGNED  GOTO  PARAMETER  FOR  ACTION  TO  BE  TAKEN  IF  SUPl 
f SCOND  SEARCH  for  DAUGHTER  FAILS  SUPl 

COUNTER  FOR  ARRAY  BRANCH  DURING  SCANS  OF  ARRAY  NUCLID  SUPl 


P  AMI 

174 

PAM1 

175 

P  AMI 

176 

SUPl 

0 

SUPl 

1 

SUPl 

2 

SUPl 

3 

suri 

* 

SUPl 

5 

SUPl 

6 

SUPl 

SUPl 

a 

SUPl 

» 

SUPl 

10 

SUPl 

li 

BUP1 

12 

SUPl 

13 

SUPl 

14 

SUPl 

15 

SUPl 

16 

SUPl 

17 

SUPl 

ia 

SUPl 

19 

SUPl 

20 

SUPl 

21 

SUPl 

22 

SUPl 

23 

SUPl 

24 

SUPl 

25 

SUPl 

26 

SUPl 

27 

SUPl 

20 

SUPl 

29 

SUPl 

30 

SUPl 

31 

SUPl 

32 

SUPl 

33 

SUPl 

34 

fSUPl 

35 

SUPl 

36 

SUPl 

37 

SUPl 

38 

SUPl 

39 

SUPl 

40 

SUPl 

41 

SUPl 

42 

SUPl 

43 

SUPl 

4* 

SUPl 

45 

SUPl 

46 

SUPl 

47 

SUPl 

48 

SUPl 

49 

9UP1 

50 

SUPl 

51 

SUPl 

52 

SUPl 

53 

SUPl 

54 

SUPl 

55 

SUPl 

56 

95 


oooonoor>nnnooonooor>ooooooooooononoooor>o 


lambda 

MAxBRA 

MAXMUL 

MAXNUC 

HAxPNT 

MULTI11J 

NAMDAU 
nahpar 
NPRNT ( 20 ] 

ntjhes 

NUcLID  [700  1 


KEND  DO-TpRMINATOR  FOR  DAUGHTER  SEARCH  SUPl  5  7 

KOUT  OUTPUT  FILE  NUN8ER,  NORMALLY  CORRESPONDS  TO  SY$0U1  SUPl  58 

KST  DO-INITIATOR  FOR  DAUOHTER  SEARCH  SUP1  59 

KTYP  INDICATOR  FOR  TYPE  OF  NUCLEAR  TRANSITION  ON  CURRENT  SUPl  60 

INPUT  RECORD  SUPl  61 

[REAL!  TEMPORARY  STORAGE  FOR  DISINTEGRATION  RONSTANT  SliPi  A9 
OF  CURRENT  INPUT  PARENT.  (S6C**-11  SUPl  63 

DIMENSION  OF  ARRAY  BRANCH  SUPl  64 

DIMENSION  OF  ARRAY  Mill  T.  HURT  NOT  PXnPPO  11  ON  IRH?no4RIIPi  A* 
DIMENSION  OF  ARRAYS  NUCLID  AND  DCON  SUPl  66 

DIMENSION  OF  ARRAY  NPRNT  SUPl  6? 

MULT  [PI.  I  EPS  FOR  ACCESS  TO  OCTAL  POSITIONS  OF  FORD.  SUPl  68 
MULTI  I ]  ■  8***  SUPl  69 

PACKED  NAME  OR  DAUGHTER  NUCLIDE  S'JPl  70 

PACKED  NAME  OE  PARENT  NUCLIDE  SUPl  71 

LOGICAL  AfiiTAY  TO  CONTROL  PRODUCTION  OF  OUTPUT  RECORDS  SUPl  72 
COUNTER  FOR  ITERATIONS  OF  DAUBMTER  SEARCH  SUPl  73 

MASTER  TAPLE  OF  NUCLIDES.  THE  LEFT-MOST  7  OCTAL  POSI-SUPl  74 
TJONS  CONTAIN  THE  MASS  NUMBER  AND  ATOMIC  NUMBER  IN  SUPl  75 
ASCENDING  ORDER  AND  THE  ISOMER  NUMBER  IN  DESCENDING  SUPl  76 
ORDER.  THE  5  RIGHT-HOST  POSITIONS  CONTAIN  DAUGHTER  SUPl  77 
IDENTIFICATION.  THE  DIGIT  POSITION  CONTAINS  THE  IN-  SUPl  78 
DEX  REQUIRED  ON  MULT  TO  ACCESS  THE  LEFT-MOST  VACANT  SUPl  79 
POSITION.  INITIALLY  THE  MULT  I  2 1  TO  MULT ! 4  I  POSITIONS  SUPl  BO 
ARE  OCCUPIED  8Y  KTYP  VALUES.  FINALLY  THEY  CONTAIN  THESUPl  01 
INCREMENTS  OF  THE  NUCLID  INDEX  REQUIRED  TO  FIND  THE  SUPl  82 
DAUGHTERS?  IF  ONE  OF  THESE  IS  A  DECREMENT .  ITS  PQS!-  SUPl  83 
TI6N  IS  TAGGED  IN  POSITION  MUUTIU.  INITIALLY  ALL  SUPl  84 
ENTRIES  ARE  SET  NEGATIVE,  BUT  AT  THE  END  A  MINUS  SIGN  SUPl  85 
DESIGNATES  THE  BEGINNING  OF  A  SUBCHAIN.  SUPl  86 

[INTEGER!  TEMPORARY  STORAGE  FAR  THE  ATOMIC  NUMBER  OF  SUPl  87 
PAOEnT  READ  FROM  INPUT  RECORD  SUPl  08 

[INTEGER]  TEMPORARY  STORAGE  OF  ISOMERIC  STATE  OF  SUPl  89 

PARENT  READ  FROM  INPUT  RECORD.  SEE  DlSOM.  SUPl  90 

[INTEGER]  TEMPORARY  STORAGE  F8R  THE  MASS  NUMBER  OF  SUPl  91 
PARENT  READ  FROM  INPUT  RECORD  SUPl  92 

SUPl  93 

**•*••*****•••*•••  SUPl  94 

SUPl  95 
SUPl  96 

BRANCH [ 130 1  .CAPFIS  SUPl  97 

I NUC  .MAXNUC  SUPl  98 

SUPl  99 
SUPl  100 
SUPl  101 
SUPl  102 

c  SUPl  103 

INTEGER  DATNO. DlSOM, DMASSoPATNO.PISOM.PMASS  SUPl  104 

LOGICAL  NPRNT. FIRST  SUPl  105 

REAL  LAMBDA  SUPl  106 

c  SUPl  187 

NAMELIST  /INPUT/  SUPl  10fl 

1  PMASS.PATNO.PISOM.HLIFE.IEXP, IUNI T, DHA3S, DATNO, D ISOM. BRAT  SUPl  109 

c  SUPl  110 

1001  FORMAT  (29H1 INTERNED! ATE  OUTPUT  OF  SETUP//!  SUPl  111 

1002  FORMAT  C6X4WINUC7X6HNUCUD11X4WDCCH/J  SUPl  il2 

1003  FORMAT  !6X 13 .5X012.5X1PE11 . 3 1  SUPl  113 

1004  FORMAT  122H1FINAL  OUTPUT  OF  SETUP//!  SUPl  114 

1005  FORMAT  [ ///6X4H IPRA5X6HBRANCH/ J  SUP1 


PATNO 

PISOM 

PMASS 


COMMON/FISH  IN/ 

1  ABEGN  (700) 

2  .DCON  (700 1 

3  .MULT  1111 

COMMON/UTILTY/ 

1  KOUT 


, ABUNDO  C  76  0  3 
.  ibra 

, NUCLID! 7001 


.NPRNT  C15J 


1006  FCRMAT  I6X I3.5XF8.5J 


115 
SUPl  116 


96 


cc  initialize  variables 


I Nyc  «  0 


nuclide  counter 


BRANCHING  RATIO  COUNTER 


1  on*  -  u 


tolerance  on  sum  or  branching  ratios 

BRTEST  »  Os 0001_ 

ASSIGN  25  TO  ISiST 
ASSIGN  300  TO  ISTOP 
ASSIGN  12X2  TO  JSFULL 
MAX8RA  ■  130 
MAXMUL  «  11 
mAXNUC  ■  700 
TOL  «  l.E-15 


CC  INITIALIZE  ARRAYS 

DO  1  I  ■  1, MAXNUC 
NUCLIDUI  »  0 

1  DCONtn  *  0.0 

DO  2  J  »  I.MAXBRa 

2  BRANCHIJJ  >  0.0 

C  SET  UP  WORD-POSITION  MULTIPLIERS 
multhi  *  a 

DO  3  K»2, MAXMUL 

3  MULTIKI  a  MULTU)*HULT  IK-t] 


read  an  input  record  after  check  of  available  space 


10  IF  I INUC.EO. MAXNUC]  ASSIGN  1308  TO  ISFULL 
READ  J'NTP.lll 

1  PHASS»PISOH»PATNO»HLIf*E» IUN IT* IEXP.BRAT.DMASS.Dl SOM, DAT WO 

11  FORMAT 

1  (10X313. 8XF9.4UX2I3.3XF7, 5. 7X313) 


IF  l  NPRNT  till  WRITE  [KOUT.INPUTJ 
CHECK  FOR  END-OF-F1LE  SENTINEL 
IF  (PMASSI1301.200.12 

12  GO  TO  ISFULL. 11212*13081 
C 

C  RESET  PARAMETERS  FOR  NEW  RECORD 
C 

1212  LAMBDA  *  0T0 
KTYP  ■  0 

ASSIGN  10  TO  IBRAT 
ASSIGN  10  TO  JBRAT 
I M  “  4 

check  for  existence  bf  daughter 

IF  IDMASSU301.22.13 
C 

CHECK  THE  HALF-LIFE 

13  IF  (HLIFEU301.1301.14 

14  LAMBDA  ■  0T693147/TIMSECtHLIF£. IUNIT, IEXPt 

CHECK  THE  BRANCHING  RATIO  AND  MARK  THE  EXISTENCE  OF  A  BRANCH 
IF  IBRAT-liCU5.l6.1301 
C 

15  ASSIGN  112  TO  IBRAT 
ASSIGN  133  TO  JBRAT 

CC  DETERMINE  THE  TYPE  OF  TRANSITION 


117  j 

118  ] 

119  j 

120 

121  | 

122  ; 

123  | 

124  | 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 
14? 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 
193 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 


1 


97 


J  o  uu  uuu 


C  SETA  EMISSION 

16  IF  IDATNO.EG.IRATNOMl  .AND.DMASS.EQ.PMASSI  GO  TO  1? 

C  ISOMERIC  TRANSITION 

IF  IDATNO.EQ.PATNO.AND.DMASS.EQ.PMASS'  GO  TO  18 
C  NEUTRON  PLUS  SETA  EMISSION 

t  f  I  n*  TklA  Crt  >  DAtaja^a  I  Ann  nui  ««e>  rn  I  nuird  <  *  i  a*  ■  n  <  a 

*  .  •••  .  hm  .  •  ••  t  4*  »''!*•»*  wimww  ni<*.  1 1  nn^tr  ~  i  i  i  ju  iu  ir 

C  POSITRON  EMISSION  OR  ELECTRON  CAPTURE 

IF  (DATNO.EQ.IRATNO-ll . AND. DM ASS, EC. PM ASS  I  GO  TO  20 
C  MEwTmOT4  CntSSSun 

IF  IDATNO.EQ.PATNO.AND.DMASS.EQ, IPMASS-ll I  GO  TO  21 
C  ERROR  TRACE  FOR  ILLEGAL  TRANSITION 
GO  TO  1301 

INDICATE  THE  TYPE  OF  TRANSITION 

17  KTYP  ■  DISOM  ♦  1 
00  TO  22 

18  KTVP  *  DISOM  ♦  3 
GO  TO  22 

19  KTYP  *  6 
GO  TO  22 

20  KTYP  -  7 
GO  TO  22 

*********  CODE  INSERTION  POINTS  ****** 

21  GO  TO  1301 

PACK  THE  PARENT  NAME  INTO  THE  7  LflHEST  OCTAL  POSITIONS  OF  NAMPAR 

22  NAMPAR  ■  PMASS*MULT14!  ♦  PATN0*MULTI II 

C  IF  THIS  IS  THE  FIRST  RECORD  00  DIRECTLY  TO  111  AFTER  CHECKING  IT 
GO  TO  IS1ST, I23.1001 

23  ASSIGN  100  TO  ISiST 
GC  TO  111 

C 

C  FIND  OUT  WHERE  the  NEW  ENTRY  BELONGS  IN  THE  NUCLIDE  TABLE  WHILE 
C  KEEPING  TRACK  OF  LOCATION  IN  THE  BRANCHING  RATIO  TABLE 

100  kbr  *  0 

DO  110  £  *  1  *  1 NUC 
I  NO  *  | 

NUCTRY  -  IABSINUCLIDI  ID 
C  INCREMENT  THE  INDEX  OF  BRANCH  IF  REQUIRED 
KBW  »  KBR  ♦  4  -  MOO  I NUCTRY >  MULT  Ill! 

IF INAMPAR/MULT 11 1-NUCTRY/MULT 16 31131,121, 110 

110  CONTINUE 
C 

C  THE  NEW  ENTRY  BELONGS  NEXT  iN  SEQUENCE.  INCREMENT  THE  NUCLIDE 
COUNTER  AND  PUT  NAME  IN  HIGH  ORDER  POSITIONS  OF  NEW  WORD. 

111  I NUC  ■  I NUC  ♦  1 

NUCL I D 1 1 NUC 1  »  “I (NAMPAR  •  P  ISOM  I *MULT I  5)  +  KTYP*MULT14J  ♦  4J 
DCOM t INUCI  «  LAMBDA 
GO  TO  I&RATt (10,1121 

C 

C  ADD  NEW  BRANCHING  RATIO 

112  IBRA  »  IBRA  ♦  1 
BHANCH !! I BRA )  >  BRAT 

C  DECREMENT  THE  BRANCH  INDICATOR 

NUCL ID t INUC1  «  NUCL I D 1 1 NUC ]  ♦  1 
GO  YO  10 


SUP1  177 
SUP1  178 
SUPl  179 
SUP1  180 
SUPl  181 
SUPl  182 
Suri  163 
SUPl  184 
SUPl  185 
SUPl  itio 
SUPl  187 
SUPl  188 
SUPl  189 
SUPl  190 
SUPl  191 
SUPl  192 
SUPl  193 
SUPl  194 
SUPl  195 
SUPl  196 
SUPl  197 
SUPl  198 
SUPl  199 
SUPl  200 
*  SUPl  201 
SUPl  202 
*  SUPl  203 
SUPl  204 
SUPl  205 
SUPl  206 
OFFSUP1  207 
SUPl  208 
SUPl  209 
SUPl  210 
SUPl  211 
SUPl  212 
SUPl  213 
SUPl  214 
SUPl  215 
SUPl  216 
SUPl  217 
SUPl  218 
SUPl  219 
SUPl  220 
SUPl  221 
SUPl  222 
SUPl  223 
SUPl  224 
SUPl  225 
SUPl  226 
SUPl  227 
SUPl  228 
SUPl  229 
SUPl  230 
SUPl  231 
SUPl  232 
SUPl  233 
SUPl  234 
SUPl  235 
SUPl  236 
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C  THE  NEW  ENTRY  IS  EQUAL  TO  OR  ISOMERIC  WITH  AN  OLD  ONE.  ISOMERS  MUSTSUP1  237 


C  eE  ORDERED  IN  D*E*S*C*E«M<*D*I*N*G  SEQUENCE  SUPl  238 

121  If  ( I ABSINUCL |Dl IND) 1/MUL5I5I  -  INAMPAR  ♦  PISOM II 131. 141 , 122  SUP1  239 

C  IF  THIS  IS  THE  END  OF  THE  TABLE  WE  MUST  STOP  HERE  AND  GO  TO  111  SUPl  240 

122  IF  I INO.EQl INUCJ  GO  TO  111  SUPl  241 

IND  a  IND  ♦  1  SUPl  249 

IF  I  I ABS ( NUCL ID { IND II /MULT 18  I • GT iNAMP AR/MWLT 1111  GO  TO  131  SUPl  243 

KSR  ■  KBR  <  4  -  MOD! IABSINuCLIDI IND) )*MUL Till  I  SUPl  244 

00  TO  121  SUPl  24* 


C 

C  THE  NEW  ENTRY  MUST  BE  I *N*S*E*R*T *E*D  ABOVE  IND.  MOVE  THE 
C  SUCCEEDING  ENTRIES  DOWN  TO  MAKE  ROOM. 

131  INUC  =  I NUC  +  1 
JST  s  IND  ♦  1 
JS  ■  JST  *  INUC 
DO  140  J  »  JST. INUC 
JJ  ■  JS  -  J 

NUCLIDIJJ)  ■  NUCL 1 0  I JJ-1 1 

140  DCONIJJ]  >  DCONIJJ-l] 

NOW  INSERT  THE  NEW  ENTRY 

132  NUCLIDCINDI  *  -UNAMPAR  +  PI  SOM  1*MULT  1 5 )  *  KTYP*MULTI.4)  ♦  4l 
DCONUND)  -  LAMBDA 
GO  TO  JBRAT. 110.133) 

DECREMENT  THE  BRANCH  INDICATOR 

133  NUCLIDI IND)  «  NUCL 1 0  I IND )  *  1 

CHECK  POSITION  IN  BRANCHING  RATIO  TABLE*  AND  GO  TO  134  IP  INSERTION  IS 
C  REQUIRED. 

134  JF  IKBR.LTTIBRAJ  GO  TO  135 
C  OTHERWISE  EXTEND  THE  TABLE. 

1BRA  «  IBRA  *  1 
BRANCH [ I  BRA  I  >  BRAT 
GO  TO  10 
C 

135  IBRA  *  IBRA  ♦  1 

C  HAKE  ROOM  IN  the  table. 

KST  »  KBR  *  1 
KS  »  KST  IBRA 
DO  136  K  «  KST. IBRA 
KK  *  KS  -  K 

136  BRANCH  IKK ]  a  BRANCH  IKK*1 1 
BRANCH l KBR 1  =  BRAT 

GO  TO  10 
C 

C  THE  NEW  ENTRY  REPRESENTS  ANOTHER  BRANCH  OF  AN  OLD  ENTRY. 

C  SET  POSITION  INDICATOR. 

141  IN  a  MODI  IABS(NUeLICUNDM,MULT(l>! 

NDAUT  a  4  *  IM 

CHECK  FOR  DUPLICATION 

IF  INDAUT  *  KTYPJ1302. 1303, 142 

142  INDICT  a  MODI  I ABS I NUCL ID  I IND] J .MULTI  51 1 
DO  150  L  >  1, NDAUT 

LM  «  5  -  L 

IF  IINDICT/MULTIlM) .EQ.KTXPJ  GO  TO  1303 
150  CONTINUE 
C 

CHECK  AGREEMENT  OF  DISINTEGRATION  CONSTANTS 
IF  ILAMBDATNE • OCON C IND II  GO  TO  1304 
C  ENTER  THE  NEW  TRANSITION  AND  DECREMENT  THE  POSITION  COUNTER. 


SUPl  246 
SUPl  247 
SUPl  24B 
SUPl  249 
SUPl  250 
SUPl  251 
SUPl  252 
SUPl  253 
SUPl  254 
SUPl  255 
SUPl  256 
SUPl  257 
SUPl  258 
SUPl  259 
SUPl  260 
SUPl  261 
SUPl  262 
SUPl  263 
SUPl  264 
SUPl  265 
SUPl  266 
SUPl  267 
SUPl  268 
SUPl  269 
SUPl  270 
SUPl  271 
SUPl  272 
SUPl  273 
SUPl  274 
SUPl  275 
SUPl  276 
SUPl  277 
SUPl  278 
SUPl  279 
SUPl  280 
SUPl  261 
SUPl  282 
SUPl  283 
SUPl  284 
SUPl  285 
SUPl  266 
SUPl  287 
SUPl  288 
SUPl  289 
SUPl  290 
SUPl  291 
SUPl  292 
SUPl  293 
SUPl  294 
SUPl  295 
SUPl  296 
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non 


NUCLIDtiNDl  ■  NUCllDlIND]  -  KT  YP*MULT  tl  H 1 

♦  1 

SUPl 

297 

C  GO  BACK  TO  STORE  TwH  BRANCHING  RATIO 

SUPl 

298 

00  TO  134 

SUPl 

299 

C 

SUPl 

300 

C 

SUPl 

301 

CC  NON  THAT  ALU  THE  INPUT  RECORDS  HAVE  BEEN  READ. 

IT  IS  TIHE  TO  SET 

UP  SUPl 

302 

me  KCLAIIUNS  HfclWECN  TMt  PAHfcN  I  AND  D  MJQHTSH  INDICES. 

SUPl 

303 

C 

SUPl 

304 

C 

C  HRiTe  IN IfcHMfcU  I  Afh  UIMFUT  I P  REQUESTED 

SUPl 

305 

SUPl 

306 

200  I F 1 .NOT .NPRNT  1 2  J  J  GO  TO  ?00Q 

SUPl 

30/ 

WRITE  (KOUT . 1001 ] 

SUPl 

308 

WRITE  I KOUT . 1002  I 

SUPl 

309 

WRITE  (KOUT. 10033  t  lO.NUCLIDNOl .DCONIIO) 

» ! 0*1, INUC 1 

SUPl 

310 

2000  KBR  «  0 

SUPl 

311 

FIRST  «  .TRUE. 

SUPl 

312 

C  BEGIN  THE  MAIN  LOOP  THROUGH  THE  NUCLIDE  TABLE. 

SUPl 

313 

DO  250  I  >  1.INUC 

SUPl 

314 

brsuh  ■  0.0 

SUPl 

315 

ASSIGN  203  TO  NQO 

SUPl 

316 

C  UNPACK  THE  NUCLIDE  WORD 

SUPl 

317 

C  ENSURE  THAT  SUCCESSIVE  DISINTEGRATION  CONSTANTS 

ARE  NOT  EQUAL 

SUPl 

318 

IF  (FIRST)  GO  TO  2743 

SUPl 

319 

FACTC  ■  DCONtll  -  DCONII**) 

SUPl 

320 

IF  (ABSIFACTCJ.GE.TOLI  GO  TO  274 

SUPl 

321 

IF  CFACTC1  2741,2742,2742 

SUPl 

322 

2741  DCONCI-11  «  DCONII-1J  ♦  TOL 

SUPl 

323 

GO  TO  274 

SUPl 

324 

2742  UCONCII  <  DCONdl  ♦  TOL 

SUPl 

325 

GO  TO  274 

SUPl 

326 

2743  FIRST  *  .FALSE. 

SUPl 

327 

274  NAHE  >  1 ABS ( NUCL 1 0  C I  )  1 

SUPl 

328 

ITRUNC  ■  MOD  INANE »  MULT I  5  H 

SUPl 

329 

Hi  ■  MODt  ITRUNC.  MULTCUI 

SUPl 

330 

NEWNAM  ■  [NAME/MULT15JMMULTI5 1  «  HI 

SUPl 

331 

NBR  a  4  -  HI 

SUPl 

332 

CHECK  FOR  EXISTENCE  OF  DAUGHTERS 

SUPl 

333 

(F ( I TRUNC .EQ.H I  1GO  TO  250 

SUPl 

334 

IF  INBRI1305.201.202 

SUPl 

335 

201  NBR  «  1 

SUPl 

336 

BRSUM  ■  1.0 

SUPl 

337 

ASSIGN  204  TO  NGo 

SUPl 

330 

C 

SUPl 

339 

CONSIDER  EACH  BRANCH  IN  TURN 

SUPl 

340 

202  DO  210  J  «  l.NBR 

SUPl 

341 

NTIMES  ■  0 

SUPl 

342 

IM  «  5  -J 

SUPl 

343 

KTYP  «  ITRUNC/NULTI IM1 

SUPl 

344 

ITRUNC  ■  MOD ( ITRUNC. MULTI tM I  I 

SUPl 

345 

GO  TO  NQO. 1203,204] 

nuPi 

346 

203  KBR  *  K0R  ♦  1 

SUPl 

347 

C  SUH  THE  BRANCHING  RATIOS  FOR  CHECKING 

SUPl 

348 

BRSUM  «  BRSUM  ♦  PRANCHIKBRI 

SUPl 

349 

C  BRANCH  ON  THE  TRANSITION  MODE  TO  SYNTHESIZE 

THE 

DAUGHTER  NAME 

SUPl 

350 

204  GO  TO  1211, 211, 212,212, 212, 213, 214, 2151, KTYP 

SUPl 

351 

C 

SUPl 

352 

C  BETA  EMISSION 

SUPl 

353 

211  NANDAU  ■  CNAME/HULTI61  1*MULTI1I  *  MULT  1 11 

♦  KTYP  -  1 

SUPl 

354 

C  SET  DO  PARAMETERS  FOR  SEARCH  in  NEXT  7  ENTRIES 

SUPl 

355 

KST  ■  !  ♦  1 

SUPl 

356 

100 


onn 


KEND  ■  KST  ♦  6 

C  SET  NODE  FOR  FURTHER  SEARCHES 
ASSIGN  221  TO  K2ND 
ASSIGN  219  TO  K3RD 
GO  TO  216 

C 

C  ISOMERIC  TRANSITION 

212  NAMDAU  »  INAHE/MULTUn-MULTIll  *  KTYP  -  3 

C  SET  DO  PARAMETERS  FOR  SEARCH  IN  NEXT  2  ENTRIES 
KST  »  I  ♦  1 
KEND  >  KST  *1 

C  SET  NODE  FOR  FURTHER  SEARCHES 
ASSIGN  222  TO  K2ND 
ASSIGN  221  TO  K3RD 
GO  TO  216 

C 

C  NEUTRON  PLUS  BETA  EMISSION 

213  NAMDAU  ■  I NAME/MuLT 1 6  )1 *MULT !  1 1  -  MULT (41  *  MULTI  1! 

C  SET  DO  PARAMETERS  FOR  SEARCH  IN  PRECEDING  ENTRIES 

KST  «  1 
KEND  *  I  -1 

C  SET  MODE  FOR  FURTHER  SEARCHES 
ASSIGN  223  TO  K2ND 
ASSIGN  219  TO  K3RD 
QO  TO  216 

C 

C  POSITRON  EMISSION  OR  ELECTRON  CAPTURE 

21 A  NAMDAU  ■  INAME/MULT t 6 II *MULT HI  -  MULTIli 

C  SET  DO  PARAMETERS  FOR  SEARCH  IN  PREVIOUS  SEVEN  ENTRIES 
KEND  «  I  -  i 
KST  «  KEND  *  6 

C  SET  MODE  FOR  FURTHER  SEARCHES 
ASSIGN  221  TO  K2ND 
ASSIGN  219  TO  K3RD 
GO  TO  216 

C 

C********  CODE  INSERTION  POINTS  *  *  * 

215  GO  TO  210 


SEARCH  FOR  THE  DAUGHTER  IN  9HE  NUCLIDE  TABLE 
216  , 1 T I MES  ■  NTIMES  *  1 
DO  220  K  ■  KST. KEND 

IF  (NAMDAUTEQ. I ABS (NUCL I D IK  I J/MULTI51I  GO  TO  223 
220  CONTINUE 

c  search  failed,  try  longer  search  *f  possible 


GO  TO  (217. 218.219). NTIMES 

217 

221 

GO  Tfl  K2N0. (221*222.2231 
KST  «  1 

KEND  ■  I NUC 

GO  TO  216 

222 

KST  «  KEND  ♦  1 

KEND  »  KST  4 

GO  TO  216 

223 

KST  ■  KEND  1 

KEND  >  I NUC 

SUPl  357 
SUP!  358 
SUPl  359 
SUPl  360 
SUPl  361 
SUPl  369 
SUPl  363 
SUPl  364 
BUPl  365 
SUPl  366 
SUPl  367 
SUPl  368 
SUPl  369 
SUPl  370 
SUPl  371 
SUPl  372 
SUPl  373 
SUPl  374 
SUPl  375 
SUPl  376 
SUPl  377 
SUPl  378 
SUPl  379 
SUPl  380 
SUPl  381 
SUPl  382 
SUPl  383 
SUPl  364 
SUPl  385 
SUPl  386 
SUPl  387 
SUPl  386 
SUPl  389 
SUPl  390 
8UP1  391 
SUPl  392 
•  *  *SUPl  393 

SUPl  394 
*  *  *  SUPl  395 

SUPl  396 
SUPl  397 
SUPl  398 
SUPl  399 
SUPl  400 
SUPl  401 
SUPl  402 
SUPl  403 
SUPl  404 
SUPl  405 
SUPl  406 
SUPl  407 
SUPl  408 
SUPl  409 
SUPl  410 
SUPl  411 
SUPl  412 
SUPl  413 
SUPl  414 
SUPl  415 
SUPl  416 


GO  TO  216 

SUP1 

417 

c 

SUP1 

418 

210 

GO  TO  K3RD, 1219.2215 

SUPl 

419 

C 

DAUGHTER  IS  MISSING 

SUPl 

4?0 

219 

GO  TO  1306 

SUPl 

421 

c 

SUPl 

422 

nnunuvp  tu>inr?ueuv  nit  heroCuCt:T  Air  OAliCk.iT  fAillCV  TH  P  I  Un  niitCUYCP*  AWfl 

KliP  1 

45.T 

C  MAKESURE  IT  DOES  NOT  EXCEED  7 

SUPl 

424 

225 

|NCR  *  K  -  I 

SUPl 

425 

tr  f  ?nu  iNuff!  ■  u?  1  ?)  "Q  j  '»  ft  * 

SilPl 

«£A 

C  REVISE  THE  NUCLIDE  NAME 

SUPl 

42  7 

NEWHAM  ■  NEWNAH  *  I A3S ( I NCR ) *MULY 1 1 M 1 

SUPl 

428 

C  MARK  THE  POSITION  IF  IT  BE  A  DECREMENT. 

SUPl 

429 

I F  ( I  NCR  1 226 .227. 227 

SUPl 

430 

226 

NEHNAM  *  NEUUAM  *  I K*HULT 1 1 ) 

SUPl 

431 

227 

NUCLIDm  >  ISIGNINEHNAM.NUCLIDI  I  51 

SUPl 

432 

C  MARK  THE  DAUGHTER  AS  N*0*T  THE  BEGINNING  OF  A  SUBCHAIN. 

SUPl 

433 

NUCLIDIKI  ■  I ABS (NUCLl 0 IK ) I 

SUPl 

434- 

210 

CONTINUE 

SUPl 

435 

C 

SUPl 

436 

CHECK 

whether  branching  ratios  add  UP  TO  1. 

SUPl 

437 

IF  (ABS(BRSUM-l<9l .GT.BRTEST]  GO  TO  1307 

SUPl 

43G 

C 

SUPl 

439 

250 

continue 

SUPl 

440 

C 

SUPl 

441 

IF  1 .NOT.NPRNT (3}  I  GO  TO  2500 

SUPl 

442 

WRITE  IKOUT.1004J 

SUPl 

443 

WRITE  (KOUT • 1002 1 

SUPl 

444 

WRITE  IKOUT  •  1003  ]  (  1  0.  NUCCi  I  D  1 10  5.  DCON  t  10  I  •  I  0*1.  INUC  ) 

SUPl 

445 

WRITE  IKOUT. 10051 

SUPl 

446 

WRITE  (KOUT. 1006)  (  1 0. BRANCH  1 10] . 10*1. IDRA] 

SUPl 

447 

2500 

GO  TO  ISTOP. (99.3001 

SUPl 

448 

300 

RETURN 

SUPl 

449 

C 

SUPl 

450 

C  * 

*******  ERROR  FORMATS  ********* 

*  eupi 

451 

c 

SUPl 

452 

1351 

FORMAT  I37H0FAULTY  INPUT  RECORD  WAS  BEEN  OMJTTED//I 

SUPl 

453 

1352 

FORMAT  I22H0KTYP  *  NDAUT  NEGATIVE// I 

SUPl 

454 

1353 

FORMAT  (40HQPUPLICATE  INPUT  RECORD  HAS  BEEN  OMITTED//! 

SUPl 

455 

1354 

FORMAT  I7HODCON.  1PE10,3*13H  FOR  NUCLID.  0l2,27H  INCONSISTENT 

WITSUP1 

456 

1H  LAMBDA.  1PE10.3//I 

SUPl 

457 

1355 

FORMAT  I21HOTOO  MANY  DAUGHTERS.  0121 

SUPl 

458 

1356 

FORMAT  I11K80AUGWTER.  G7.20H  NOT  FOUND  OR  INCR  EXCEEDS  71 

SUPl 

459 

1357 

FORMAT  (23H0BRANCHING  RATIOS  FOR,  012. 20H,  DO  NOT  ADD  UP  TO  11 

SUPl 

460 

1358 

FORMAT  I40HODIMENSIONS  OF  NUCLID  HAVE  BEEN  EXCEEDEDI 

SUPl 

461 

C 

SUPl 

462 

C  * 

L  *SUP1 

463 

C 

SUPl 

464 

1301 

WRITE  IKOUT. 1351J 

SUPl 

465 

1310 

WRITE  IKOUT. INPUT! 

SUPl 

466 

00  TO  10 

SUPl 

467 

C 

SUPl 

468 

1302 

WRITE  IKOUT. 1352J 

SUPl 

469 

ASSIGN  99  TO  ISTOP 

SUPl 

470 

GO  TO  1313 

SUPl 

471 

C 

SUPl 

472 

1303 

WRITE  IKOUT . 1353 ) 

SUPl 

473 

00  TO  1310 

SUPl 

474 

C 

SUPl 

475 

1304 

WRITE  IKOUT. 1354J  DCON l INDj .NUCL I D i IND 1 .LAMBDA 

SUPl 

476 

102 


uuoouuuuuuuoouuuouuuow 


ASSIGN  99  TO  1ST0P 
00  TO  1310 


1305  WRITE  IKOUT ,  1365  }  NJCLIDU1 
ASSIGN  99  TO  JSTOP 

GO  TO  250 
r 

1306  WRITE  IKOUT , 1356 )  NAMDAU 
ASSIGN  99  TO  ISTflP 

00  TO  210 
C 

1307  WRITE  IKOUT. 1357)  NUCLIDIJ) 

ASSIGN  99  TO  JSTOP 

00  TO  250 
C 

1308  WRITE  IKOUT. 13581 
ASSIGN  99  TO  ISTOP 
GO  TO  1212 

C 

99  CALL  DUMP 
STOP 
C 

END 

SIBPTC  YLDI  LIST, BECK, M94/2 

SUBROUTINE  YIELD 
1  I  INTP.flSSIDj 
VERSION  1 

R  C  TOMPKINS  -*  US  ARMY  NUCLEAR  DEFENSE  LABS 
14  SEPTEMBER  1966 


ALLED  BY  PAM1 


********  glossary 


ASEGNI 700 ]  INITIAL  FISSION  PRODUCT  ABUNDANCES  IN  ATDMS710000 
FISSIONS  (PARALLEL  TO  NPARNTI 
FISSID  TYPE  OF  FISSION  REQUESTED  BY  USER 

FISTYPI6I  TYPES  OF  FISS*ON  CORRESPONDING  10  DATA  FIELDS  ON 

FISSION  YIELD  CARDS 

FYLDIN  FISSION  YIELD  ON  INPUT  CARD  (YIELD) 

NSTAT  ISOMER  NUMBER  ON 

FISSION  YIELD  CARD  I  YIELD) »  CP.  LISOH 
ERM  CARD  IXPRM]  - 

GROUND  STATE  0  OR  2 
EXCITED  STATE  1 


COMMON/F ISHIN7 

1  ABEGN  (700) 

2  . DCON  (7001 

3  .MULT  (111 
COMMON/UT ILTYY 

l  KOUT 


■  ABUNDO  I  70  0  I  <  BRANCH! 13C )  .CAPFIS 
. 1  BRA  , INUC  » HAXNUC 
.NUCLIDI700 ] 

.NPRNT  (151 


DIMENSION  FMTM1.XSPECC6UFISTYP  161 
DIMENSION  INFORMtll  ],L!M  III],  MEM  (7001  .NUCIU) 
EQUIVALENCE  (MEM, ABUNDO) 


SUP1 

477  'i 

SUP1 

478  5 

EUP1 

479  | 

SUP1 

480  | 

SUP1 

481  f 

SUP1 

482 

SUP1 

483  | 

SUP1 

484  | 

SUP1 

485 

SUP1 

486  1 

SUP1 

487  j 

SUP1 

488  | 

SUP1 

489  f 

SUP1 

490  ! 

SUP1 

491 

supi 

492  ) 

3UP1 

493  I 

SUPI 

494  ■ 

SUPI 

495  { 

SUPI 

496 

SUPI 

497 

SUPI 

498 

SUPI 

499  i 

YLD1 

0 

YLD1 

1 

YLDi 

2 

YLD1 

3 

YLDI 

4  | 

YLDI 

5  | 

YL1 1 

6  5 

YLDI 

7  3 

YLDI 

8  I 

YLDI 

9  I 

YLDI 

10  | 

YLDI 

11  f 

YLDI 

12 

YLDI 

13  j 

YLDI 

14  { 

YLDI 

15  1 

YLDI 

16  j 

YLDI 

17  j 

YLDI 

18 

YLDI 

19 

YLDI 

20 

YLDI 

21 

YLDI 

22 

YLDI 

23 

YLDI 

24 

YLDI 

25 

YLDI 

26 

YLDI 

27 

YLDI 

28 

YLDI 

20  ! 

YLDI 

30 

YLDI 

31 

YLDI 

32 

YLDI 

33 

YLDI 

34 

YLDI 

35 

YLDI 

36 

INTEGER  A, B, BLANK. FISSID, PISTYP 


103 


LOGICAL  NPRNT 

YID1 

37 

c 

YLD1 

30 

OATA  FMT(l>,FHTlZ).FMT!4)/6HMS»I4.6H.Al,  .6HElO.nl/. 

YLtil 

39 

1 

(XSPECtll, 1*1. 61/AH  .6H10X  ,6H20X  .6H30X 

YLD1 

40 

2 

‘  6H40X  .6H50X  / 

YLD1 

41 

data  Blank . a . 8/ i u  .iha.ihb/ 

vi  n. 

A  'i 

C 

YLDl 

43 

DO  SO  J  J*1 , I NUC 

YLD1 

44 

SO 

A0EGNIJJ)  >  -1.0 

YLD1 

,c 

ASSIGN  213  TO  IFLAQ 

YLDl 

46 

c 

fend  the  right  data 

YLDl 

47 

202 

READ  UNTP.iOll  fF  ISTYPt  11.1*1.6] 

YLDl 

48 

C 

GO  AHEAD  IF  WE  FOUND  IT.  ELSE  STOP 

YLDl 

49 

IF  [FISTYPtll.EQ. BLANK}  GO  TO  I FLAG, l 213, 16 1 

YLDl 

SO 

DO  203  K>1.6 

YLDl 

51 

IF  IFISTYPIKI .EO.FISSIDI  00  TO  204 

YLDl 

52 

203 

continue 

YLDl 

53 

C 

YLDl 

54 

2031 

READ  IINTP.103I  NM AS 

YLDl 

55 

IF  (NHASI202, 202, 2031 

YLDl 

56 

204 

FMTI3I  ■  XSPECIK! 

YLDl 

57 

1 

READ  IINTP.FMT1  NMAS. NAT. NSTAT, FYLDIN 

YLDl 

58 

C 

HAKE  A  NOTE  THAT  WE  FOUND  IT 

YLDl 

59 

ASSIGN  16  TO  IFLAG 

YLDl 

60 

IFINMASJ17. 202.2 

YLDl 

61 

213 

WRITE  (KOUT.1304)  FISSIO 

YLDl 

62 

STOP 

YLDl 

63 

COMPAT 10  I l i ze  the  isomeric  state  indicators 

YLDl 

64 

2 

IF  (NSTAT. EG. BLANK]  NSTATvO 

YLDl 

65 

IF  INSTAT.EG.AI  NSTAT'l 

YLDl 

66 

IF  INSTAT.EO.B)  NSTAT«2 

YLDl 

67 

IF  INSTAT.GT.31  WRITE  IKOUT.lSoSl  NH AS, NAT. NSTAT, FYLDIN 

YLDl 

68 

NAMC  *  NHAS*NULT141  ♦  NAT*MULTU)  ♦  NSTAT 

YLDl 

69 

c 

YLDl 

70 

DO  10  I-l.INUC 

YLDl 

71 

10 

IF  ( I ABSINUCLIDI I ] 1/MULT  15 J , GQ.NAMCI  60  TB  12 

YLDl 

72 

GO  TO  1 

YLDl 

73 

check 

CONTENTS  OF  ABEGN 

YLDl 

74 

12 

IF  (ABEQNinil4.l3.13 

YLDl 

75 

COMPILE  FYLDIN  INTO  ARRAY 

YLDl 

76 

14 

ABEGN 1 I 1  ■  FYLDIN 

YLDl 

77 

GO  TO  l 

YLDl 

78 

C 

YLDl 

79 

13 

WRITE  IKOUT,l30i) 

YLDl 

80 

I 

L  NUCLIDI I ) .ABEGN 1 1 1 

VLD1 

81 

IF  I ABEGN III -FYLDIN 114,1. 14 

YLDl 

82 

17 

WRITE  IKOUT, 13021 

YLDl 

83 

BACKSPACE  INTP 

YLDl 

84 

READ  ( INTP, 1303) 

YLDl 

85 

WRITE  I  INTP.13C3J 

YLDl 

86 

GO  TO  1 

YLDl 

87 

CHECK 

FOR  COMPLETENESS 

YLDl 

80 

16 

DO  18  JBl.INUC 

YLDl 

89 

IF  1 ABEGN! J) IIS, 18, IB 

YLDl 

90 

15 

CONTINUE 

YLDl 

91 

ABEGN Ijl  ■  0.0 

YLDl 

92 

10 

CONTINUE 

YLDl 

93 

IF  I .NOT .NPRNTI4! ]  GO  TO  99 

YLDl 

94 

WRITE  (KOUT. 10011  FiSSlD 

YLDl 

95 

DO  1000  10  «  1. 1 NUC 

YLDl 

96 

io4 


name  -3  !  AQSlNUCLiO!  1 0  1  1/HULTI5) 

CALL  UNPACK  inmas.nat.nstat.name  1 
1000  WRITE  CKOUT.1002)  NMAS, NAT . NSTAT . A8EGN I  I 01 
CODING  TO  PREVENT  DUPLICATION  OP  FISSION  YIELDS  FOR  NUCLIDES  THAT  ARE 
C  MEMBERS  OF  MORE  THAN  ONE  SUBCHAIN 
99  DO  100  XM  =  1,  JNUC 
100  MEM  t  KM  I  3=  0 

DO  50U  IN  ■  l.INUC 

c  find  the  next  nuclide  that  begins  a  subchain 

IF  iNUCLIDtlNIMll, 411.500 
C 

c  set  parameters  for  beginning  or  A  SUBCHAIN 
c  membership  counter 

411  LSUB  »  1 
jL  °  0 

c  starting  index 

NUCill  ■  IN 

412  LIH(LSUB)  *  4 

C  PROCESS  a  SUBCHAIN  MEMBER 

413  HP  >  NUC I LSUB I 
1M  *  LIHILSUB! 

INFO  «  MODI  I ABS I NUCL I D (KPl J .MULT  151 1 
INF0RMILSU91  ■  INFO 
INC  *  1 

CHECK  FOR  END  OF  SUBCHAIN 

IF  (INFO. EO. 4J  GO  TO  421 
C  EXTRACT  THE  DAUGHTER  INCREMENT 

[D  »  MOD  II NFO. MULT  I IM+1 ) I /MULT  II  Ml 
C  SEE  IF  THIS  INCREMENT  SHOULD  BE  NEGATIVE 

IF  I  MOD  I  I NFO » MULT  t 21  I /MULT  1 1 ) , EG , IMI  GO  T6  414 
IF  ILSUB.EQ.JLI  GO  TO  415 

C  RECORD  THE  MEMBERSHIP  OF  NUCUDIKP1  IN  THIS  SUBCHAIN 
MEhlKPl  *  MEHIKP1  *t 
GO  TO  415 

414  INC  ■  -INC 
COMPUTE  DAUGHTER  INDEX 

415  NDAUT  »  KP  ♦  I NC* I D 

C  ACCEPT  THE  DAUGHTER  FOR  MEMBERSHIP  AND  HECYOLE 
LSUB  a  LSUB  ♦  1 
IF  5LSUB.GT.113  GO  TO  500 
NUC (LSUB 1  «  NDAUT 
GO  TO  412 
C 

421  IF  (L3UB.E0.il  GO  TO  500 

C  FIND  THE  LAST  BRANCH  IN  THE  SUBCHAIN 
LAST  a  LSUB  ♦  1 
DO  422  L  ■  2. LSUB 
LBACK  ■  LAST  -  L 
JL  ■  LBACK 
IM  »  LINILBACKJ 

IF  [MODI  INFORM  I LBACK} .MULT [ IH 1 1 /MULT  I tM-li 1 422*422.431 

422  CONTINUE 
GO  TO  500 

C 

C  SET  UP  A  NEW  SUBCHMN  STARTING  FROM  THE  DEEPEST  UNEXPLORED  BRANCH 
431  LSUB  a  LBACK 

LI34ILSUBJ  *  LJNILSUBJ  *1 
GO  TO  413 
500  CONTINUE 


YLD1 

97  3 

YLD1 

9B  ? 

YLD1 

99  1 

YLD1 

10  0  j; 

YLD1 

101  (; 

YLD1 

102  } 

YLD1 

103  i 

YLD1 

104  r 

YLD1 

105  l 

YLD1 

106  I 

YLD1 

107  i 

YLD1 

108  I 

YLD1 

109  I 

YLDl 

110  (6 

YLD1 

in  i 

YLDl 

112  | 

YLDl 

113  1 

YLDl 

114  ■  1 

YLDl 

115  1 

YLDl 

116  I 

YLDl 

117  I 

YLDl 

116  g 

YLDl 

119  f 

YLDl 

120 

YLDl 

121  ! 

YLDl 

122  | 

YLDl 

123 

YLDl 

124  j 

YLDl 

125  i 

YLDl 

126  5 

YLDl 

127  ‘ 

YLDl 

12G  ! 

YLDl 

129  | 

YLDl 

130 

YLDl 

131  ! 

YLDl 

132  l 

YLDl 

133  \ 

YLDl 

134 

YLDl 

135  1 

YLDl 

136  jj 

YLDl 

137  1 

YLDl 

136  | 

YLDl 

139  1 

YLDl 

140  3 

YLDl 

141 

YLDl 

142 

YLDl 

143 

YLDl 

144 

YLDl 

145 

YLDl 

146 

YLDl 

147 

YLDl 

148 

YLDl. 

149 

YLDl 

150 

YLDl 

151 

YLDl 

152 

YLDl 

153 

YLDl 

154 

YLDl 

155 

YLDl 

156 

: 0  600  XA  »1,  I NUC 

YLDl 

157 

DIV  »  MEMIKA) 

YLD1 

158 

IF  (DIV)  613,600.601 

YLDl 

159 

601 

A8EQN1KA)  >  ABEGNlKA 1/DIV 

YLDl 

160 

GO  TO  600 

YLDl 

161 

f  13 

uO  ITC  li  Aj  « A  l  W4 

n-  -  •  •*-  i  -  <  w  *  w  w  |  « 

YLDl 

162 

6130 

FORMAT  ( 15H0M  JNU3  MEM  FOR  1 3 ) 

YLDl 

163 

600 

CONTINUE 

YLDl 

164 

YLDl 

165 

YLDl 

166 

1 01 

'0RMATI6A61 

YLDl 

167 

103 

FORMA  T 1 1 5 1 

YLDl 

168 

1001 

FORMAT  I 20H1F I 3S | ON  YIELDS  FOR 

A6//5X4HHAf S5X6HCHARGE5X6H I S0HER5X2YLD1 

169 

15HYIELD  PER  10,000  FISSIONS/1 

YLDl 

170 

1002  FORMAT  I5X13<7X13<9XI1<14X1PE12<41  VLDl  171 

1301  FORMAT  1 9H0NUCL 1 DE  012, 11H  WITH  YIELD1PE*E.4.14H  IS  DUPLICATED.’  TLD1  l>2 

1302  FORMAT  ( 24HDC AMD  WITH  NEGATIVE  MASS!  Yl.Dl  173 


1303  FORRATOOH 

YLDl 

174 

1  I 

YLDl 

175 

1304  FORMAT  I32H0N0  FISSION  YIELD  AVAILABLE  FOR  A6I 

YLDl 

176 

1305  FORMAY  5CHGBAD  CARD/5X2I3*A3,5X1PE12.4» 

YLDl 

177 

END 

YLDl 

178 

SlflFTC  X°RHV  LIST, OECK , H94/2 

XPRM 

0 

SUBROUTINE  XPRM 

XPRM 

1 

1  I  1 NTP  1 

XPRH 

2 

C 

XPRM 

3 

c 

R  C  TOMPKINS  •  US  ARMY  NUOlEAR  DEFENSE  LABS 

XPRM 

4 

c 

November  1966 

XPRM 

5 

CALLED  BY  PAM1 

XPRM 

6 

C 

XPRM 

7 

C 

*  # 

*  *  *  * 

XPRM 

8 

C 

XPRM 

9 

C 

ERH(lfll)  EXPOSURE  RATE  MULTIPLIERS  FOR  GAMMA-CMITTJNG  FISSION 

XPRM 

10 

c 

PRODUCTS  IC f.  XPRM  AND  GXPSNI 

XPRM 

11 

c 

JRMllfllJ  CROSS  REFERENCE  TO  INDICES  OF  NPARNT 

[XPRM 

AND  GXPSR 1 

XPRM 

12 

c 

P«RALLEL  YO  ERm 

XPRM 

13 

r 

URM  NUMBER  OF  FISSION  PRODUCTS  CONTRIBUTING  TO 

GAMMA  DOSE 

XPRM 

14 

c 

(XRRM  and  GXPSR) 

XPRM 

15 

c 

NSTAT  ISOMER  NUMBER  ON 

XPRM 

16 

c 

FISSION  YIELD  CARO  (YIELD),  CP.  LISOM 

XPRM 

17 

c 

ERM  CARD  I  XPRM 1  - 

XPRM 

18 

c 

GROUND  STATE  0  OR  2 

XPRM 

19 

c 

EXCITED  STATE  1 

XPRM 

20 

c 

XRM  EXPOSURE  RATE  MULTIPLIES  ON  EIN  CARD 

1 XPRM) 

XPRM 

21 

c 

XPRM 

22 

c 

*  * 

*  *  * 

XPRH 

23 

c 

XPRM 

24 

COMNON/FPYLNG/ 

XPRH 

25 

1  BSUBK  1901  .ERM  (1851  . JRM  (1951  <KRM 

>E€F(90) 

XPRM 

26 

COMMON/FISHIN/ 

XPRH 

27 

1  AUEQN  (700)  , A8UND0  E  7 • 0  I  >  BRANCH ( 130 1  pCAPFIS 

XPRM 

28 

2  . DCON  (700)  ,  1  BRA  <INUC  ,HAXNUC 

XPRM 

29 

3  .MULT  Ill)  » NULL  I D 1 700  ) 

XPRM 

30 

COMMON/UTILTY/ 

XPRM 

31 

1  KQUT  ■ NPRNT  (15! 

XPRM 

32 

dimension  NMHEC181J 

XPRM 

33 

LOGICAL  JD, IGO.KDOS, NPRNT 

XPRM 

34 

c 

XPRH 

35 

1001  FORMAT  12X213,12. EB,3) 

XPRM 

36 

1002  FORMAT 

XPRM 

37 

106 


‘T"™ 


1  (15N10UTPUT  Of  XPRM//5x3HINDSX5X2HIA5X2HlZ5X2HIS5X3HJRM9X3HERMXPRM 

38  1 

1  i  i 

2  // 1 

XPRM 

39  I 

1  !  j 

702  f ORMAT 

XPRM 

40 

?  -! 

1  16X13,5XI3i5xI2,6X11»5xI3»5X1PE1Q.31 

XPRM 

41 

7311  FORMAT  (22H0NERATIV5  MASS  IN  XPRK] 

XPRM 

42 

1 A 

wODy 

A  -t  ft 

t  J 

1313  FORMAT  I55H0THE  FOLLOWING  ERM  CARDS  HAVE 

NO  COUNTERPARTS 

IN  NUCLIDXPRM 

44  i 

!  ' 

1! 

XPRM 

45 

•  i 

«  ■♦IK  r-AAM  *  k  t  ■*  tin  K  «f  wrn  ■»  1 

VOIOM 

A  A  ‘ 

C 

XPRK 

47  j 

i 

C  INITIALIZE  VARIABLES 

XPRM 

48  \ 

!  • 

lt  *  1 

XPRM 

49  1 

haxerm  ■  lai 

XPRM 

50 

•  j 

DO  1  1  ■  1*MAXERH 

XPRM 

51 

ERM l I 1  «  OTO 

XPRM 

52 

NAME!  I  1  ■  0.0 

XPRM 

53 

1  JRMHI  «  0 

XPRM 

54 

last  «  0 

XPRM 

55 

KRM  ■  0 

XPRM 

56 

C 

XPRM 

57 

C 

XPRM 

58 

C 

XPRM 

59 

C  REAP  A  CARD 

>;prh 

60 

2  READ  1 INTP.lOOl) 

XPRM 

61 

1  nmas.nat.nstat.xrm 

XPRM 

62 

check  for  end-of-file  sentinel 

XPRM 

63 

i 

if  I NMAS  j 13 0 1 i 6 i 3 

XPRM 

64  1 

1 

3  IFIKRM.EQ.MAXERM1  GO  TO  1302 

XPRM 

65 

■  i 

KRM  *  KRM  ♦  1 

XPRM 

66 

E  ; 

COr*P  AT  J  HI L I ZE  THE  ISOMERIC  STATE  INDICATORS 

XPRM 

67 

i 

M3  ■  NST AT  ♦  1 

XPRM 

68 

i  1 

GO  TO  15,5.4], MS 

XPRM 

69 

C 

XPRM 

70 

4  NSTAT  =  0 

XPRM 

71 

C  PACK  THE  NUCLIDE  NAME 

XPRM 

72 

j 

5  NAMEIKRHl  «  NM AS#MULT I  4  1  A  NAT*MULT 1 1 )  ♦ 

NSTAT 

XPRM 

73 

j 

ERHlKRMj  »  XRM 

XPRM 

74 

| 

C 

XPRM 

75 

GO  70  2 

XPRM 

76  j 

C  MATCH  THE  NAMES 

XPRM 

77 

6  DO  100  K  ■  1, I NUC 

XPRM 

70  j 

NUCNAH  ■  lABStNUCLIDIK] J /MULTI  5  J 

XPRM 

79  1 

DO  10  L  ■  LT, KRM 

XPRM 

80 

NAML  »  NAME  l  L ) 

XPRM 

81  1 

7  IF  inaml.eo.nucnami  GO  TO  11 

XPRM 

82 

:  ; 

10  CONTINUE 

XPRM 

83 

GO  TO  100 

XPRM 

64 

C 

XPRM 

85 

11  NUMAS  «  NAML/MULT141 

XPRM 

86 

CHECK  FOR  BEGINNING  OF  M*S$  CHA*N 

XPRM 

87 

IF  (NUMAS  *  LAST ] 12 , 13 ■ 12 

XPRM 

88 

12  TEMP  ■  •ERM IL 1 

XPRM 

89 

1  ' 

GO  TO  14 

XPRM 

90 

!  , 

13  TEMP  *  ERMIL) 

XPRM 

91 

* 

IF  ILT.EQ.KRMI  GO  TO  101 

XPRM 

92 

j  • 

14  LAST  ■  NUMAS 

XPRM 

93 

I 

C  ORDER  THE  ARRAYS 

XPRM 

94 

j  : 

MB  «  L 

XPRM 

95 

MT  »  UT  ♦  1 

XPRM 

96 

LL  «  MB  ♦  MT 

XPRM 

97 

i  ! 

107 


nannnonooonononnn 


c 

XPRH 

98 

DO  20  N  :  MT ,  H9 

XPRH 

99 

MM  ■  LL  -  M 

XPRM 

100 

E«N(MK|  »  ERMIHM-l 1 

XPRH 

101 

20  NAME  I  KM  I  «  NAMEIhM-1) 

XPRH 

102 

C 

XPRH 

103 

«•*••*««*•#  -  i  fan r 

APHfi 

104 

nameiltj  *  0 

XPRH 

105 

JRMILT J  ■  K 

XPRM 

106 

1  T  •  y* 

U  '  -  •*  t 

XPHN 

107 

c 

XPRM 

108 

100  CONTINUE 

XPRM 

109 

C  ERROR  TRACE  ON  NORMAL  EXIT 

XPRH 

110 

GO  TO  1303 

XPRH 

111 

C  PROCESS  THE  LAST  ENTRY 

XPRM 

112 

101  JRMCKRM)  *  K 

XPRM 

113 

ERMCKRMJ  ■  TEMP 

XPRH 

114 

NAME [ KRM]  ■  0 

XPRM 

115 

C  OUTPUT  RESULTS  ON  REQUEST 

XPRH 

lib 

IT  l . NOT .NPRNT ( 5 1 )  RETURN 

XPRM 

117 

WRITE  IXOUT.1002) 

XPRM 

118 

DO  700  I*1*KRH 

XPRM 

119 

JR  »  JRHtl) 

XPRM 

120 

NANO  ■  I ABS ( NUCL ID  t  JR  I l/MULT  1 5  * 

XPRM 

121 

CALL  UNPACK! I  A* IZ» ISp  NAMOl 

XPRM 

122 

700  WRITE  [KOUT #  7021 

XPRH 

123 

1  I.  IA,  IZ,  IS*  JRMIM  .ERMII  1 

XPRM 

124 

RETURN 

XPRH 

125 

XPRM 

126 

1301  WRIVE  1KOUT. 13111 

XPRH 

127 

WRITE  I KOUT  *  1001 )  NMASiNAT. NSTAT*  XRM 

XPRM 

128 

GO  TO  3 

XPRM 

129 

1302  WRITE  IK0LT.1312J 

XPRM 

130 

STOP  1302 

XPRM 

131 

1303  WRIT'  5KOUT.1313J 

XPRM 

132 

WRITE  IKOUT *  1323 ]  (NAME (Lt • ERMIL 1 *L>L1 * 

KRM  1 

XPRH 

133 

KRK  «  LT  -  1 

XPRM 

134 

GO  TO  101 

XPRM 

135 

END 

XPRH 

136 

SIBFTC  INDX  LIST.OECK.M9A/2 

IN.OX 

0 

SUBROUTINE  INDCDi 

INDX 

1 

1  IEMITN  .  HOB  .  KRD  *  TW  1 

INDX 

2 

called  by  PAM1 

INDX 

3 

C  INDCD  TS  MODIFIED  VER10H  OF  JONES-HOFf MAN  INDUCED 

INDX 

4 

C  COMPUTER  PROGRAM,  USNRDL  UR- 

INDX 

5 

C 

INDX 

6 

C  NOVEMBER  1906 

INDX 

7 

C 

INDX 

8 

ifr  *  *  * 

* 

*  *  * 

*  INDX 

9 

C 

INDX 

10 

C  ALB  NEUTRON  ALBEDO  OF  SOIL 

INDX 

11 

C  FAC  17, 18]  NUMBER  OF  ATOMS  OF  ISOTOPE 

I  OF  ELEMENT 

J 

ACTIVATED 

INDX 

12 

C  PER  NEUTRON  (OF.  INDCDI  AND 

INDC021 

INDX 

13 

C  FAII7.181  ATOMS  OF  ISOTOPE  I  OF  J  PER 

AVON  OF  J 

INDX 

14 

C  F AT  1 18 1  ATOMS  OF  ELEMENT  1  PER  ATOM 

OF  SOIL- 

INDX 

15 

C  FM1181  MASS  FRACTION  OF  ELEMENTS  IN  SOIL 

INDX 

16 

C  CCF.  CASSIDY/JONES  FW) 

INDX 

17 

C  F0Gl5»7Jl8)  PHOTONS  PER  DISINTEGRATION 

OF  ENER6Y  I 

OF 

ISOTOPE  J 

OF INDX 

18 

C  ELEMENT  K  (INDCDI  AND  INDCD21 

INDX 

19 

C  rOH  FRACTIONS  OF  NEUTRONS  SEEN 

BY  APPARENT 

CRATER 

INDX 

20 

c 

HK7.18I 

half  life  of  capture  product  «f  isotope  i  of  element 

J I  NDX 

21 

c 

HOB 

height  of  burst  in  feet 

1NDX 

22 

c 

HSCL 

SCALED  HEIGHT  OF  BURST  |U**l/3  IN  INDCD2I 

INDX 

23 

c 

! SOt IS] 

NUMBER  OF  ISOTOPES  OF  EACH  ELEMENT  OCCURRING  IN  NATUREINDX 

24 

c 

KEv (7*181 

NUMBER  of  photon  energies  emitted  by  capture  product 

INDX 

25 

r 

r\  *•  »  rtr*  i 

wr  «  w  r 

INIIX 

26 

c 

LH(7,181 

UNITS  OF  HL.CR,  (UNIT 

INDX 

27 

c 

NA  t  7  *18  ] 

MASS  NUMBER  OB  ISOTOPE  I  OF  ELEMENT  J 

INDX 

28 

r 

M1M  »  1 
'»  •>  l  AMI 

i  vrtkA  •  ^  kiiiur>rn»'  ■«  •  |  J'  UliEllSC 

niun|u  nunoLH  J  ur  aviiU  CLCnctltS 

(NPX 

29 

c 

RNY  ( 5«  7'Ufl) 

EXPOSURE  RATE  MULTIPLIERS  FOR  PHOTON  ENERGIES  PARALLEL  I NDX 

30 

c 

TO  FOG 

INDX 

31 

c 

SIQI  (7.181 

THERMAL  NEUTRON  ABSORPTION  CROSS  SECTION  OF  ISOTOPE  I 

INDX 

32 

c 

OF  ELEMENT  J  I  BARNS  1 

INDX 

33 

r. 

S I G I  SC ( 7 , 18  ] 

THERMAL  NEUTRON  SCATTERING  CPQSS  SECTION  OF  ISOTOPE  I 

INDX 

34 

c 

OF  ELEMENT  J  (BARNS! 

INDX 

35 

c 

S  IQS 

thermal  neutron  absorption  cross  SECTION  OF  SOIL 

INDX 

36 

c 

(BARNS  I 

INDX 

37 

c 

SIGSSC 

THERMAL  NEUTRON  SCATTERING  CROSS  SECTION  OF  SOIL 

INDX 

38 

c 

(BARNS) 

INDX 

39 

c 

XLAH [7.18] 

DISINTEGRATE  CONSTANT  OF  CAPTURE  PRODUCT  OF  ISOTOPE 

INDX 

40 

c 

I  OF  ELEMENT  J 

INDX 

41 

c 

INDX 

42 

c 

***** 

INDX 

43 

c 

INDX 

<4 

COMMON/ t  NDUCE/ 

INDX 

45 

1  albfom 

.FAC  (  7#  18 ] » FOORNY ( 7, 18 1 , 1  SO  (18) 

INDX 

46 

2  « LHAX 

, XLAM  17*181 

INDX 

47 

c 

INDX 

48 

COMMON/UTIUTY/ 

INDX 

49 

1  KOUT 

.NPRNT  U5] 

INDX 

50 

c 

INDX 

51 

DIMENSION 

INDX 

52 

1  A  (7.  181 

,  F A 1  (7,  18),  FAT (18) ,  FMI181.  F0G(5,7*18), 

INDX 

53 

2MLI7.181. 

NZI1B).  LH  17,  18).  NA  (7,  18),  RNY(9.7,lSI. 

INDX 

54 

3Kc V ! 7  *li  I  , 

INDX 

55 

4  SA  (181.  SFAI  (181.  SFA1SC  (18).  SIQI  (7.  181*  SIGISC  (7*  181 

INDX 

56 

c 

INDX 

57 

LOGICAL  NPRNT 

INDX 

58 

c 

INDX 

59 

10  FORMAT ( I2.8X.F10.0 1 

INDX 

60 

14  FORMAT  (12, 

I5.E13.3) 

INDX 

61 

016  FORMAT  ( 

INDX 

62 

1  13.  12,  F9.5*  F15.9*  Ell. 3,  13,  F15.5) 

INDX 

63 

18  FORMAT  ( F10 

.O.EIO.O) 

INDX 

64 

601  FORMAT 

INDX 

65 

1  (17M10UTPUT  OF  INDCD1/Z2HONUM0ER  OF  ELEMENTS  ■  I2/42H0NUM9ER 

OINDX 

66 

2F  NEUTRONS 

EMITTED  PER  FISSION  *  F5.2/ 

INDX 

67 

4  /  9H0 

INDEX5X3HIS01IX3HFAC12X4HXLAM9X3MKEW9X3HF0G12X3HRNY/J 

INDX 

68 

602  FORMAT 

INDX 

69 

1  I//6XI2 

,  8X1 1 (6XlPEl2,3,5XElD ,3, 6X1 1.6X0PF10 .5.5X1PE10. 3) 

INDX 

70 

603  FORMAT 

INDX 

71 

1  (63XOPF1O.5.SX1PE10.39 

INDX 

72 

604  FORMAT 

INDX 

73 

1  (1K022X1PE12.S.5XE10,3,6XI1#6XOPF10.5.SX1PE10.31 

INDX 

74 

c 

ELEMENTS  OF  CASING  ARE 

INDX 

75 

c 

IGNORED  IN  THIS  COMPUTATIONS 

INDX 

76 

c 

INDX 

77 

HOBLMT  ■  36 

,0 

INDX 

78 

DOBLMT  ■  -2 

.0 

INDX 

79 

100  READ 

(XRD,  10) 

INDX 

80 

109 


noon 


1  LHAX 

|F I LHAX I 700*700*102 

102  READ  tKRDr  141 

1  INZlLl  »  I S 0 1 1. * .  FNIL I »  Lai.  LM*x> 

DO  103  Lai.  UMAX 
IS  *  (SOIL) 

103  READ  I KRD»  1AI 

1  INA  t  I  »L  J  *  KEVII.LJ.  FA  2  1 1  (L  1  .  SlGll2.iL'  HLII.Li.  LHH.LJ. 

2  SIGISC  (!.  U»  !  >  1.  ! S | 


DO  104  L  »  1. 

LHAX 

IS  >  ISOILI 

DO  104  I  a  1. 

IS 

KE  a  KEVII.LJ 

READ 

ikrd 

1  IFOGtN.I.LI.  RNYIN.I.U.  N»l.  ME) 

IFIEHITN1700.700.105 
105  SICS'  0. 

SlQSSQa  0.0 

SFWNAX“0  s 

DO  120  Lil*  LMAX 

SAILlaO, 

iSalSOlLJ 

DO  110  t-1,  IS 

All. L l«NA ( ) i L 1 

110  SAILIa  SAIL!  M(I.L]*FAin»L) 

120  SFMHAXaSFWHAX^FMfLl/SAIL) 

DO  150  L>1.  LHAX 

FATIL1  ■  FHILJ/lSAIL]*SFNMAX) 

sfai ( L ] ■ 0 . 

SFA ISC IL 1 *0 . 0 
I S* ISO  1 1 1 
00  140  I «1 #  IS 

SFAISCILJ  ■  SFAISC  I L) *FA l ( I , t J •  SICISCII.LI 
140  SFA1ILI  «  SFAI[l}«FAIII.L«*SIGIII.LI 
SlOSSCaSIflSSC*FATtU*SFAISCILI 

150  SIGS«SIGS+IAT(L1*SFA1 [Li 
152  DO  200  Lai.  LHAX 
I  Sal  SO  I  LI 
DO  200  I B1 .  IS 
FOQRNY(I.L)  ■  0. 

KE  a  KEVII.LJ 
DO  210  N  a  1,  KE 

210  FOGRNYI I . L I  *  FOGRNYII.LJ  ♦  FOG  IN. I  *  L 1 *RN¥ IN.  1 .1) 
FACII7LJ»FATIL1*FAII  I  .U*SlS!  1 1  .L  I/SIGS 
HLII.L)»TIHSECtHL(  I.D.LH1  I.Ll.OJ 
200  XL AH  I I.L)*t093/HLl I .  L  J 

REDUCTION  OF  SOIL  EXP.  RATE  IS  NOW  HADE  AO 

THE  SOLID  ANGLE  FRACTION  OF  THE  FIREBAs.L  TOUCHING  THE  GROUND  AT 
THE  TIME  OF  HYDRODYNAMIC  SEPARATION,  ANU  THE  FRACTION  OF 
NEUTRONS  THAT  REMAIN  IN  THE  SOIL  AFTER  ALBEDO. 

H$CLaHOB/TWa«0 . 33333333 

272  IF  (HSCL.LT.HOBLHTI  GO  TO  274 

273  FOM»0?C 
ALB*0"9 
GO  TO  287 

274  IFIHSCLJ276.277.275 

275  F0NalT-MSCL/S0RTt4.24*HSCt)*HSCL-234.aHSCL*4225. J 
GO  TO  266 

276  IF  IHSCL.LT.DOBLMTJ  GO  TO  278 

277  FOH«1?0 


INOX  01 
2NDX  02 
I NDX  03 

f  Ainu  M  a 
•  ftwrt  a  1 

I NDX  85 

I NDX  0« 

vwnw  « 7 
6  » mu  is  u  f 

1  NDX  86 
I NDX  89 
I NDX  90 
! NDX  91 
I NDX  92 
1 NDX  93 
I NDX  94 
I NDX  95 
INDY  96 
INDX  97 
I NDX  98 
E  NDX  99 
INDX  100 
INDX  101 
INDX  102 
INDX  103 
INDX  104 
INDX  105 
INDX  106 
INDX  107 
INDX  108 
INDX  109 
INDX  1  3 
INDX  111 
INDX  112 
INDX  113 
INDX  114 
INDX  115 
INDX  116 
INDX  117 
INDX  118 
INDX  119 
INDX  120 
INDX  121 
INDX  122 
INDX  123 
INDX  124 
INDX  125 
INDX  126 
INDX  127 
INDX  126 
INDX  129 
INDX  130 
INDX  131 
INDX  132 
INDX  133 
INDX  134 
INDX  135 
INDX  136 
INDX  137 
INDX  136 
INDX  139 
INDX  140 


110 


nonn 


GO  r'0  286 

I NDX 

141 

270  alb*i!o 

INDX 

142 

FOM«1?0 

INDX 

143 

GO  TO  297 

INDX 

144 

286  Ate«lTl55*SURTlS!QS/mGSSC*SIGSn 

INDX 

145 

207  ALBFOH  ■  EM ! TN*f OH 

*ALB*1,E4 

INDX 

146 

! F  ( .NOT .NPflNT ! 0  I  J 

RETURN 

INDX 

147 

6  WRITE  IKOUT.6011 

INDX 

14B 

1  LHAX.EMITN 

INDX 

149 

INDX 

150 

DO  ^05  1«1*LMAX 

INDX 

151. 

IS  >  I  SO  III 

INDX 

152 

WRITE  I KOUT «  602  I 

INDX 

153 

1  I’IS.FACtl. II> 

XLAMIlf  *l.KEV(if  II.FOSll.l.  11# 

RNYlV  1.1 1 

INDX 

154 

KE»KEV{ 1# I ) 

INDX 

155 

IF!KE?QT.1J 

INDX 

156 

lWR ITS  I KOUT #603 ) 

INDX 

157 

1  l  F 0.  ;i  J  N  » 1 . 1 1 » RN Y  i  H .  1 »  I*,K«2. 

KE  1 

INDX 

158 

irnsTea.il  qo  to 

605 

INDX 

159 

INDX 

160 

DO  6G0  J*2# IS 

INDX 

161 

KE  *  KEVU.U 

INDX 

162 

WRITE  I  KOUT »  6l'  4  ^ 

INDX 

163 

1  FACUf  1  J.XLAKiJf  IJ.KE.FOGll 

.  J,I  l.iU’VU.J.  II 

INDX 

164 

iFIKETGT.ii 

INDX 

165 

1WRITE  I  KOUT  1 603 I 

INDX 

166 

1  (FOG  £K»  J» I I »RNY IK. J» I  4 . K*2. 

KE) 

INDX 

167 

600  continue 

INDX 

168 

605  CONTINUE 

INDX 

169 

700  RETURN 

INDX 

170 

END 

INDX 

171 

IBFTC  FRTAB  LlST#tlCc* 

#  ('■'14/2 

FRTA 

0 

SUBROUTINE  FRA’ IP 

FRT  A 

1 

i  ( SLDTMP#  TM30.M 

CHN1 

FRTA 

2 

FRTA 

3 

R  C  TOKPKINS  —  US 

ARMY  NUCLEAR 

DEFENSE  LABS 

FRTA 

4 

SB'YEMBER  196<> 

FRTA 

5 

FRTA 

6 

COMMON  /SETS/ 

FRTA 

7 

1  CZ 

.BZ2 

.BZZ 

.  BZ22 

FRTA 

a 

2  fOELTAX 

,  DGX 

t  D8Y 

. DIFCON 

FRTA 

9 

3  #  D IF  AD J 

.FMAStSlOJ 

# FMASS 1 200  1 

.  ICI181 

FRTA 

10 

4  fICON 

#  ICTR 

#IH 

.I0TI18) 

FRTA 

11 

5  .  IP 

. IPOUT 

.ITTI181 

.IV 

FRTA 

12 

6  .JCtlS] 

.JIN 

,  JOUT 

. JPOUT 

FRTA 

13 

7  #  KTR (5001 

.KTAPE 

.LAST 

.MAPRUN 

FRTA 

14 

6  .MARRAY 

#MIN 

.NXREO 

FRTA 

15 

9  >N 

»NA 

,NBZX 

t NBZX2 

FRTA 

16 

1  >NBZY 

#  NCL 

.  NE 

,NF 

FRTA 

17 

2  .NIJ 

,NMAP 

.  NMAX 

,  NOX 

FRTA 

18 

3  »NPt21! 

tNREO 

.NS 

.NT APES 

FRTA 

19 

4  <  NTAPET 

.NTASK 

.NXMAP 

.NYMAP 

FRTA 

20 

5  .  YMIN 

# PS  C500* 

. PSIZE [ 200 1 

. PACT  12001 

FRTA 

21 

6  fROPART 

» T 1 500 ! 

*  Tl 

FRTA 

22 

7  ,T2 

#TLIMIT 

#  XI 500 1 

,XF 

FRTA 

23 

8  ,X0 

.XMAX 

.XMIN 

. XNHAP 

FRTA 

24 

9  #  XI 

#  X2 

.  X3 

»  X4 

FRTA 

25 

1  > Y 1500  1 

#  YF 

,  YO 

.  YMAX 

FRTA 

26 

COMMON/OUTPUT/ 

FRTA 

27 

1  FISNUM  ,FP  (200)  ,FM  .ITAB 

,  JGO 

FRTA 

28 

in 


o  n 


2  .MASCHN  .SIGMAS 

COHMON/FISHIN/ 

1  ABEGN  (700)  .ABUNDOI7IO)  » BRANCH ( 130  )  » CAPF 1 3 

2  *  DCOM  (700)  .  IBRA  .|NUC  .MAXNUC 

3  .MULT  (11)  .NUCL1DI700) 


common/utilty/ 

1  KOUT 


. NPRNT  (15) 


C3HH0N/FRYLNG/ 

1  BSUBK  (90)  »£RM 

COMMON/DECAY/ 

1  I  GO  .JD 

2  • TEX  I T  .TIME 


(185)  .JHM  (185)  # KRM 


.ECF (90) 


TENTER 


DIMENSION  FR190 1 
DIMENSION  eO)L(Ao) 

EQUIVALENCE  (FR.BSU8KJ 

LOGICAL  NPRNT.IGO.JD.NOTO.KDOS 

DATA  BO IL/2*3173. 0.290 7. 0.30 00 .0.2976.0.1764.0.1010.0. 1026.0.3 
1.120. 1*1656. 0.3497. 0.4695. 0.4808 ,0.3300.0.1351.0.503, 0.4505.0. 
2,0.3436.0.2451.0.1832,0.2123,0.2247.0.1632.0.1534.0.457.4.165. 
355.0.3003.0.4608,0.4367.0.4252.0.4464.0.4348.0.5*4300.0/ 


TIME  *  TMSD 
IGO  «  .FALSE. 

JD  ■  iTRUEl 
KOOS  *  .FALSE. 

MAXCHN  *  90 
DC  30  I  *  1 . MAXCHN 
30  FRII)  >  0.0 

CALL  BATMAN 

MCHN  a  0 
RFRC  a  0.0 
CHN  ^0.0 

LAST  a  I  AbS  *N!iCL  I D  ( 1 ) )  /MULT  (9  I 
NOTO  a  .FALSE. 

DC  10  MB  a  l.INUO 

NAME  a  IABS(NUCLID!MB) I/MULT16) 

MASS  ■  NAME/MULT (3) 

NAT  a  MOD  I  NAME . MULT ( 3 1 ) 

IF  (NAT.GEl27.AND.NAT.LE.66I  GO  TO  1 
WRITE  (KOUT. 513)  NAT. MASS 
ABUND  a  0.0 
GO  TO  10 

1  IF  (MASS.EQ.LAST1GO  TO  3 
MCHN  a  MCHN  *  1 
IF  (NOTO I  FRINCHN)  «  RFRC/CHN 
RFRC  «  0.0 
CHN  a  0,0 
NOTO  *  -FALSJ. 


FRTA 

29 

FRTA 

30 

FRTA 

31 

FRTA 

32 

FRTA 

33 

FRTA 

34 

FRTA 

35 

FRTA 

36 

FRTA 

37 

FRU 

36 

FRTA 

39 

FRTA 

40 

FRTA 

41 

FRTA 

42 

FRTA 

43 

FRTA 

44 

FRTA 

45 

FRTA 

46 

FRTA 

47 

FRTA 

4B 

FRTA 

49 

FRTA 

50 

FRTA 

51 

FRTA 

52 

BFRTA 

53 

9FRTA 

54 

5FRTA 

55 

FRTA 

56 

FRTA 

57 

FRTA 

56 

FRTA 

59 

FRTA 

60 

FRTA 

61 

FRTA 

62 

FRTA 

63 

FRTA 

64 

FRTA 

65 

FRTA 

66 

FRTA 

67 

FRTA 

68 

FRTA 

69 

FRTA 

70 

FRTA 

71 

FRTA 

72 

FRTA 

73 

FRTA 

74 

FRTA 

75 

FRTA 

76 

FRTA 

77 

FRTA 

78 

FRTA 

79 

FRTA 

80 

FRTA 

81 

FRTA 

82 

FRTA 

83 

FRTA 

84 

FRTA 

85 

FRTA 

86 

FRTA 

87 

FRTA 

88 

112 


onononoooononnnno 


r 


3  A0UND  ■  abundocmbj 
last  «  HASS 
IF  l ABUND J 10  »10  *4 

If  IBOll INAT-26) .GE.SLDTN81  RFRC  *  RFRC  ♦  ABUND 
CHN  •  CHN  ♦  ABUND 
i  n  rfiNTi  MiiF 

HCHN  *  HCHN  ♦  1 

IF  (NOTO 1  FRIMCHhll  ■  RFRC/CHN 


IF  INPRNT 1611  00  TO  22 
19  DO  32  L  *  1 > HCHN 

BSUBK IL  J  «  SORTlFfitUl  *  1.0 
POWER  «  BSUBK ( l ) 


SUM  *  0.0 

DO  20  H  ■  l.ITAB 

20  SUM  «  SUM  +  FMASStM!*PSlZEfMl**POWER 
32  6CFIL)  ■  If 0/SUM 

IF  INPRNT  (711  SO  TO  >.3 

21  IGO  a  .TRUE. 

RETURN 

22  WRITE  IKOUT .501 1 

WRITE  IKOUT f 5021  l J»FRI J1 »J»1.MCHN» 

GO  TO  19 

23  WRITE  IKOUT, 5031 

WRITE  IKOUT. 502)  IK.BSUBI*  IK  1  ,I?'»1,KCMNJ 
GO  TO  21 

501^FORMA J^hiqjTPUT  OF  FRATI0//6X4HMCHN  10X2HFR//1 

502  FORMAT 

1  17X12. 6X1PE12.4J 

503  FORMATI///6X4HMCHN9X5HBSUBK//)  „ 

513  FORMAT  (44H0eOlLING  POINT  IS  NOT  AVAILABLE  FOR  ELENfcNT 
1  6H I  MASS  13.1HIJ 
END 

1  6H I  MASS  I3.1HI] 


13. 


FRT  A 

89 

FRT  A 

90 

FRTA 

91 

FRT  A 

92 

FRTA 

93 

FRTA 

94 

FRTA 

95 

r  nT  A 

V  tf 

FRTA 

97 

FRTA 

98 

* 

rniA 

«  A 

w  ? 

FRTA 

mo 

FRTA 

101 

FRTA 

102 

FRTA 

1C3 

FRTA 

104 

FRTA 

105 

FRT  A 

106 

FRTA 

107 

FRTA 

108 

FRTA 

109 

FRTA 

110 

FRTA 

111 

FRTA 

112 

FRTA 

113 

FRTA 

114 

FRTA 

115 

FRTA 

116 

FRTA 

117 

FRTA 

118 

FRTA 

119 

FRTA 

120 

FRTA 

121 

FRTA 

122 

FRTA 

123 

FRTA 

122 

SIBFTC  PAM2ND  LIST. BECK, M94/2 
SUBROUTINE  PAM2 

R  C  TOMPKINS  --  US  ARMY  NUCLEAR  DEFENSE  LABS 
OCTOBER  1966 

EXECUTIVE  PROGRAM  FOR  THE  TiME-DEPENDENT  PANT  OF  THE  PARTICLE 
ACTIVITY  MODULE 
ALLED  BY  LINK9  AND  BY  CALC 


GLOSSARY 


FP 1 200 1  ACTIVITY  DENSITY  IN  EACH  PARTICLE  SIZE  FRACTION 

ITAB  NUMBER  OF  PARTICLE  SIZE  CLASSES 

HASCHN  MASS  NUMBER  REQUESTED  FOR  OUTPUT  WITH  JUO  ■  2 

SVI200)  FRACTION  OF  TOTAL  SURFACE  IN  EACH  PARTICLE  SIZE 

DIVIDED  BY  FRACTION  OF  TOTAL  VOLUME 


CGHMON/FISHIN/ 

1  ABEGN  17001  .ABUNDOI7IO)  .BRANCH  1 13L 1  .CAPFIS 

2  t DCON  (7001  .IBRA  . INUC  .HAXNUC 

3  .MULT  Ill?  .NUCLIDI700J 


COMMON/ INDUCE/ 


PAM2  0 
PmM2  1 
PAM2  2 
PA*2  3 
PAM2  4 
PAM2  5 
PAM2  6 
PAH2  / 
PAM2  8 
*  *  PAM2  9 

PAM2  10 
PAN2  11 
PAM2  12 
PAM2  13 
CLASS  PAH2  14 
PAM2  15 
PAN2  16 
*  *  PAM2  1.7 

PAM2  18 
PAM2  19 
PAM2  20 
PAM2  21 
PAH2  22 
PAM2  23 
?AM2  24 


113 


1  AL8F0M  ,FAC  ( 7 » 18 } 

(FOGRNY 17.16). JSO 

i  18 1 

PAM2 

25 

2  .LMAX  ,XLAH  C  7 1. 18  J 

PAM2 

26 

PAM2 

27 

COMMON/UT1LTY/ 

PAM2 

26 

r  mnc 

tfV 

PAM2 

30 

COHMON/OUTPUT/ 

PAh2 

31 

*  •  •  unuri  |i  *  a  c  w  u  J 

f  r  H  9  |  1  WO 

$  Juv 

2  .KASCHN  ,  S  ICfiAS 

PAM2 

33 

PAM2 

34 

C0KM0M/DECAV7 

PAM2 

35 

1  1QO  ,JD 

.KDOS  • TENTER 

PAM2 

36 

2  »  TEXj  T  .TIME 

PAM2 

37 

PAM2 

38 

COMMON  7SET3/ 

PAH2 

39 

1  BZ  ,BZ2 

•  BZ2 

.  SZ22 

PAM2 

40 

2  .deltax  ,dgx 

.  D6Y 

•DIKCON 

PAM2 

41 

3  . DIFADJ  *FMAS  1500  ] 

. FMASS !  200  1 

. 1C  S 18  t 

PAM2 

42 

A  *  ICON  < 1 CTR 

.IH 

. IOTC18) 

PAM2 

43 

5  .IP  , IPOUT 

. ITT  1 18 1 

.IV 

PAM2 

44 

6  . JC ! 18 )  i JIN 

.  JOUT 

. jpouv 

PAM2 

45 

7  .XTR15001  iKTAPE 

.LAST 

(MAPRUil 

PAM2 

46 

8  . MARAA Y  .MIN 

.MXRSO 

PAM2 

47 

. MVDUMY  >NA 

>  N8ZX 

. N8ZX2 

PAM2 

46 

1  . NBZY  >  NCL 

.NE 

.NF 

PAH2 

49 

2  .NIJ  #NMAP 

,  NMAX 

,NOX 

PAM2 

50 

3  . NP (21 ]  ,NREO 

.NS 

.ntapes 

PAM2 

51 

4  .NTAPET  .NTASK 

.NXMAP 

.NYMAP 

PAM2 

52 

5  .YMIN  .PSI500» 

. PS  I ZE I  20  0  1 

•  pact (2ooi 

PAM2 

53 

6  . ROPART 

.  T  (500 ) 

,Tl 

PAM2 

54 

7  ,T2  .TLIMIT 

»  X  E3U0 ) 

.XF 

PAM2 

55 

8  .XO  .XMAX 

.XMIM 

■  XNMAP 

PAM2 

56 

9  .XI  ,X2 

.13 

.  X  4 

PAM2 

57 

1  v|5A01  i YF 

.YO 

.  YKAX 

PAM2 

58 

PAM2 

59 

LOGIC.  JD» i G"  »KDOS. NPRNT 

PAM2 

60 

PAM2 

61 

100  FORMAT 

PAM2 

62 

1  I 17H1 TOTAL  PAM  0UTPUT/9X5HPSIZE22X2HFP > 

PAM2 

63 

101  FORMAT 

PAM2 

64 

1  15)  12.4.14XE1*,4) 

PAM2 

65 

PAM2 

66 

DO  101  ■  l.IVAB 

PAM2 

67 

10  FPII)  «  0.0 

PAM2 

68 

PAM2 

69 

GO  TO  (1.2.31.JG0 

PAM2 

70 

PAM2 

71 

1  call  gxpsr 

PAM2 

72 

IF  (CAPFIS13.3.A 

PAM2 

73 

4  CALL  URAN 

l,AM2 

74 

3  IF  ILMAX35.5.6 

FAM2 

75 

A  CALL  INDCD2 

PAM2 

76 

5  lF(.N0T.NPRNttl5] 3  RETURN 

PAi«2 

77 

WRITE  (KOUT.100 ) 

PAM2 

76 

WRITE  (KOUT.101)  C PS I ZE (I t . FP (!) . I ■!, | TAB ) 

PAM2 

79 

RETURN 

PAH2 

00 

2  call  MCHDEP 

PAMS 

01 

GO  TO  5 

PAM2 

62 

o  o  o  c- 


$  I Bf  TC  GXTS  LIST, DECK, M94/2 

SUBROUTINE  GXPSR 

CASSIDY  *  NRDL  /  TOMPKINS  -  NDL 

wnyCijQcp  tali 

called" BY~PAM2 

COMMON/F I  SHIN/ 


L  FORMAT  GXTS  52 
1  (16H10UTPUT  Oc  QXPSR/5X13HPARTICLE  SI ZE7X24HF I SSION  PROCUCT  ACGXTS  53 
2TIVITYI  GXTS  54 
>  FORMAT  GXTS  55 
1  t 8X7HM I CR0NS16X11H (R*H**2 ) /HP// J  GXTS  56 
5  FORMAT  GXTS  57 
1  (5X1PE12.4.14XE12.4J  GXTS  50 
J  FORMAT  GXTS  59 


;■ 

1  A BEEN  I  70S  3 

A  OiltilTfA  i  *  *  * 

>  on  Aribn  i  130  i 

.CAPFiS 

GXTS 

8 

’ 

2  .DOOM  (700) 

,  1  BRA 

.INUC 

• MAXNUC 

GXTS 

9 

f 

3  .MULT  Ill! 

. NUCL 10(700) 

GXTS 

10 

l 

( 

c 

GXTS 

11 

r 

COHMCN/FRYLNfl/ 

GXTS 

12 

f 

f 

.1  BSUBK  1901 

>  ERM  (185) 

.  JRM  1185! 

.  KRM 

. ECF I 90 ) 

GXTS 

13 

1 

c 

GXTS 

14 

>* 

common/utilty/ 

GXTS 

15 

!■ 

1  kout 

.NPRNT  (15J 

GXTS 

16 

I 

c 

GXTS 

17 

k 

L 

i 

common/output/ 

GXTS 

18 

1  F1SNUM 

. F  p  £200] 

»FH 

.  (TAB 

»  JGO 

GXTS 

19 

2  . MASCHN 

.SIGMAS 

GXTS 

20 

j- 

c 

GXTS 

21 

(■ 

( 

common/decay/ 

GXTS 

22  i 

i 

1  I  GO 

,  JD 

.KDOS 

.TENTER 

GXTS 

23 

2  .TEXIT 

.TIME 

GXTS 

24  | 

i 

c 

GXTS 

25  J 

i 

y 

COMMON  /SETS/ 

GXTS 

26  1 

h 

1  BZ 

.822 

.azz 

.BZ22 

GXTS 

27 

\: 

2  .DELTAX 

i  DGX 

,I»GY 

.  DIFCON 

GXTS 

28  | 

29 

( 

3  .DIFADJ 

. FMAS 1500) 

.  FHASS t  200 ) 

.icuai 

GXTS 

i' 

9  .ICON 

,  ICTR 

.IN 

.Ionia) 

GXTS 

30 

1 1 

5  .IP 

. IPOUT 

. I TT 1 18 1 

.IV 

GXTS 

31 

j  ■ 

6  . JCI18I 

.JIN 

.JOUT 

>  JPOUT 

GXTS 

32 

[. 

7  .KTRI5001 

, KTAPE 

.LAST 

.MAPRUN 

GXTS 

33 

8  .MARRAY 

.MIN 

.MXREQ 

GXTS 

34 

| 

9  .MYDUHY 

>  NA 

.NBZX 

» NBZX2 

GXTS 

35 

r 

1  . NBZY 

.  NCL 

,NE 

.NF 

GXTS 

36 

r 

2  .  N 1  J 

.  NMAP 

.  NMA  X 

.  NOX 

GXTS 

37  ; 

| 

3  .NP121J 

.  NREQ 

.NS 

. NTAPES 

GXTS 

38  1 

4  .NTAPET 

. NTASK 

.  NXMAP 

.NVMAP 

GXTS 

39  1 

j 

5  » YMIN 

•PS15001 

•  PS  I ZE 1 200 1 

.PACT (2001 

GXTS 

40  1 

t 

6  .ROPART 

.T55001 

.  Tl 

GXTS 

41  I 

1- 

7  ,T2 

.TLIMIT 

.XI 500 ) 

,XF 

GXTS 

42  § 

1;. 

8  «XO 

.XMAX 

.  XM  I N 

.  XNMAP 

GXTS 

43 

9  »X1 

.  X2 

»X3 

»  X4 

GXTS 

44 

L 

1  . Y  1 50  0  3 

.YF 

.YO 

.  YMAX 

GXTS 

45 

l 

c 

GXTS 

46 

DIMENSION  XRTI90J 

GXTS 

47 

y 

c 

GXTS 

49 

j. 

LOGICAL  JD. 100. 

KDOS. NPRNT 

GXTS 

49  l 

i- 

data  cross»unit/ioo. 0.1.0/ 

GXTS 

5C 

h 

c 

GXTS 

51 

U5 


1  I8X7HMICR0NSl8X6HR*N**2//} 

GXTS 

60 

C 

GXTS 

61 

CALL  BATMAN 

GXTS 

62 

maxmch  «  9C 

GXTS 

63 

hCu  a  n 

vi  r»  r  d 

V*  1 

DO  1  I  ■  I.MAXMCh 

GXTS 

65 

1  XRTI  1  I  a  0*0 

GXTS 

r>  ut  ^ 

66 

n 

DAIU 

6  7 

DO  10  J  «  l.KRM 

GXTS 

68 

K  ■  JRHIJJ 

GXTS 

69 

IF  lERNt Jl]ll,10,12 

GXTS 

70 

11  MCH  a  HCH  M 

GXTS 

7  J 

compute  mass  chain  normalization  FACTOR 

GXTS 

72 

C 

GXTS 

73 

12  XRTIMCH)  a  XRT  t  HcH 1  ♦  ABUNDO ( K J * *BS 1 ERM  IJ )  ) 

GXTS 

7  4 

C 

GXTS 

7b 

10  continue 

GXTS 

76 

C 

GXTS 

77 

DO  20  LC  a  l.MCH 

GXTS 

78 

IF  IXRTlLC! I20*20»21 

GXTS 

79 

21  BNEX  a  BSUBKILC] 

GXTS 

80 

CRISS  ■  CROSS**BNEX 

GXTS 

81 

RADIAL  >  ECFILO/EUNIT  +  CRI  SS*ECF  ILC 1 1 

GXTS 

82 

STRAIT  ■  RAD  I AL*CR I SS 

SXYS 

83 

TNEX  a  F I SNUM*XRt ILC 1 

GXTS 

84 

DO  A0  LD  a  i.ITAB 

GXTS 

85 

40  FPILDJ  a  FPtLDJ  *  IRADIAL*PSIZE  ILDI**BNEX  ♦  STRA I  T 1  *TNEX*FMASS  1 1.0  I  GXTS 

86 

20  CONTINUE 

GXTS 

07 

C 

GXTS 

88 

C 

GXTS 

B9 

IF  t.NOT.NPRNTUOl)  RETURN 

GXTS 

90 

C 

GXTS 

91 

WRITE  IKOUT.901J 

GXTS 

92 

IF  UDI  GO  TU  101 

GXTS 

93 

WRITE  IK0UT.9121 

GXTS 

94 

GO  TO  102 

GXTS 

95 

101  WRITE  IKOUT'902] 

GXTS 

96 

*02  CONTINUE 

GXTS 

97 

DO  103  I  *1  •  I T AB 

GXTS 

98 

WRITE  IKGUT.903I  FSIZEtlUFPHI 

GXTS 

99 

103  CONTINUE 

GXTS 

10G 

C 

GXTS 

ini 

RETURN 

GXTS 

102 

END 

GXTS 

103 

JiBFTC  UHANX  LIST. DECK. M94/2 

URAN 

0 

SUBROUTINE  URAN 

URAN 

1 

C 

URAN 

2 

C  R  C  TOMPKINS  -  U5  ARMY  NUCLEAR  DEFENSE  LABS 

URAN 

3 

C  KAY  1966 

URAN 

4 

CALLED  BY  PAHS 

URAN 

5 

C 

URAN 

6 

C  DLmM  DISINTEGRATION  CONSTANT  OF  NP239 

URAN 

7 

C  PLAM  DISINTEGRATION  CONSTANT  OF  U239 

URAN 

8 

C 

URAN 

9 

common/fishin/ 

URAN 

10 

1  ABEGN  (7001  , ABUNDOI780]  .BRANCH  1130!  .CAPFIS 

URAN 

11 

2  .DCON  1700)  >  I  SR  A  » I E4UC  » KAXNUC 

URAN 

12 

3  .MULT  Ill]  , NUCL I D ( 78  0 ) 

URAN 

13 

C 

URAN 

14 

COMMON/UTILTY/ 

URAN 

15 

U6 


1  KOUT  , NPRNT  11®] 

URAN 

16 

COMMON/OUTPUT/ 

URAN 

17 

1  FISNUM  ,FP  (2101  >  FH 

.ITAB 

,  JGi) 

URAN 

18 

2  .  HASCHN  .SIGMAS 

URAN 

19 

r.OHMON/DFCAV/ 

URAN 

20 

1  1  GO  .JO  • KDOS  .TENTER 

URAN 

21 

2  » TEX ! T  .TIME 

URAN 

22 

r 

URAN 

23 

COMMON  /SET3/ 

URAN 

24 

1  BZ  .BZ2 

>  BZZ 

.  BZ22 

URAN 

25 

2  . DELTAX  >  DGX 

» DGY 

. OlFCQN 

URAN 

26 

3  .DIFADJ  .FMAS1500) 

.FMASS ! 200 J 

•  I C 1 18  ) 

URAN 

27 

4  .ICON  .  I CTR 

.iH 

.  1 OT  f IS  1 

URAN 

26 

6  .IP  ,  I  POUT 

.ITTI16I 

.19 

URAN 

29 

6  . JC [ 18 1  .JIN 

.  JOUT 

. JPOUT 

URAN 

30 

'(  .KTRI500J  .KTAPfc 

.  i.AST 

.MAPRUN 

URAN 

31 

8  o  MARRA Y  .MIN 

, MXREO 

URAN 

32 

9  .MYDUMY  .NA 

.  (YBZX 

.NBZX2 

URAN 

33 

1  <  NBZY  . NCL 

,NE 

.NF 

URAN 

34 

2  ,NIJ  . NMAP 

*  NMAX 

,NOX 

URAN 

35 

3  .NPI211  . NREQ 

.NS 

.NTAPES 

URAN 

36 

4  . NTAPET  .NTASK 

.NXMAP 

.NYMAP 

URAN 

37 

5  « YMIN  ,PS(5a0i 

. PS ! ZE  1 20  0 ) 

.PACT  1200  ) 

URAN 

36 

6  .ROPART 

•TI5Q0I 

•  T 1 

URAN 

39 

7  >  T2  .TLIMIT 

>  X  I  500  I 

.XF 

URAN 

40 

e  .XO  .XMAX 

.  XM  IN 

>  XNMAP 

URAN 

41 

9  ,X1  >X2 

,K3 

.  X4 

URAN 

42 

1  » Y 1500  1  .YF 

.YO 

.  YMAX 

URAN 

43 

ccccc 

URAN 

44 

LOGICAL  JD. IGO.KDOS. NPRNT 

URAN 

45 

C 

URAN 

46 

COMPUTE  U239  DISINTEGRATION  CONSTANT 

URAN 

47 

PLAM  *  0. 693147/123. 5*60.0) 

URAN 

48 

COMPUTE  NP239  DISINTEGRATION  CONSTANT 

URAN 

49 

DLAM  S  0.693147/156. 0*3601. OJ 

URAN 

50 

C 

URAN 

51 

2  AZERO  *  CAPFIS*1.E4*PLAM 

URAN 

52 

GLMP  =  DLAH/IDLAM  -  PLAM 1 

URAN 

53 

GLUMP  c  AZERO*GLHP 

URAN 

54 

C 

URAN 

55 

IF  t .NOT. JDJ  GO  TO  3 

URAN 

56 

XBURAN  ■  AZERO*ExP  l -PLAM*T I  ME  J 

URAN 

57 

ABNEP  =  GLMP*ABURAN  -  GLUMp*EXP 

J-DLAN*TIMEi 

URAN 

58 

GO  TO  7 

URAN 

59 

C 

URAN 

60 

3  IF  l. NOT. KDOS]  GO  TO  4 

URAN 

61 

ABURAN  *  AZERO/PLAMMEXP  l-PLAM*TENTER!  -  EXP  I 

”PLAH*TEX I T 1  I 

URAN 

62 

ABNEP  «  GLMP*ABURAN  - 

URAN 

63 

1GLUMP* I6XP  l-DLAM*TENTER}  -  EXP 

i-dlam*texitii/dlam 

URAN 

64 

GO  TO  7 

URAN 

65 

C 

URAN 

66 

4  ABURAN  »  AZERO/PLAM*EXP  ( -PLAK*TENTER 1 

URAN 

67 

ABNEP  *  GLMP* A BUR AN  -  GLUMP/DL AM*EXP  l -DLPM*TENTER 1 

URAN 

68 

C 

URAN 

69 

7  ANtiP  *  (ABURAN*. 327E-6  *  ABNEP*. 

966E-6J«F*SNUM 

URAN 

70 

DO  8  J*l. 1  TAB 

UDAN 

71 

B  FPIJ1  *  FPIJ]  *  ANEP*FMASSl J) 

URAN 

72 

C 

URAN 

73 

IF  (NPRNT 1121.  WRITE  IKOUY.IOOI 

ANEP 

URAN 

74 

100  FORMAT 

URAN 

75 

117 


1 

(15H10UTPUT 

OF  URAN/5X21HMASS  239  CONTRIBUTES  1PE12.4. 

URAN 

76 

2 

23H  TO  EACH 

PARTICLE  SlZEd 

URAN 

77 

RETURN 

URAN 

78 

END 

URAN 

79 

JI8FTC  INDY  LIST* DECK  » M94/2 

i  aidw 
•  »  i  **  ? 

G 

SUBROUTINE  I NDCD2 

INDY 

i 

C 

INDY 

2 

C 

NOVEMBER  1966 

1  fclftW 

A  151  T 

3 

COMMON/ INDUCE/ 

• 

INDY 

4 

1 

ALBFOM 

« F  AC  (7*181 .F0GRNY17.18I. ISO 

1181 

INDY 

b 

2 

>  lma  V 

,XLAM  17,18] 

INDY 

6 

C 

INDY 

7 

COHMON/UTILTY/ 

INDY 

8 

1 

KOUT 

* NPRNT  £151 

INDY 

9 

C 

INDY 

10 

COMMON/OUTPUT/ 

INDY 

11 

J 

FISNUM 

*FP  I2»fl]  . FU  , I  TAB 

» JQO 

INDY 

12 

2 

. HASCHN 

.SIGMAS 

INDY 

13 

c 

INDY 

14 

COHHON/DGCAV/ 

INDY 

15 

1 

1  GO 

.JD  . KDOS  . TENTER 

INDY 

16 

2 

*  TEXIT 

.TIME 

INDY 

17 

c 

INDY 

IB 

COMMON  /SET3/ 

INDY 

19 

1 

B2 

.  BZ2  .azz 

.  BZ22 

INDY 

20 

2 

.DELTAX 

•  DQX  >  DGY 

. DIFCON 

INDY 

21 

3 

, DIFADJ 

. F M  A S I 5 0  0  J  . FHASS I  200 ) 

,  1C 1 18  1 

INDY 

22 

5 

„  ICON 

.ICTfl  ,1H 

.  lOTiiai 

INDY 

23 

5 

.  IP 

1 1  POUT  .ITTI18I 

.  IV 

INDY 

24 

6 

.  CU0) 

.  J i N  ,JOUT 

, JPOUT 

INDY 

25 

? 

>.  FU500J 

.KTAPE  .LAST 

.MAPRUN 

INDY 

26 

a 

.MURRAY 

.MIN  .MXREQ 

INDY 

27 

9 

.HVDUMY 

.NA  <  NBZX 

>  NBZX2 

INDY 

28 

1 

*  N8Z  Y 

. NCL  » NE 

.NF 

INDY 

29 

2 

» N 1 J 

t NMAP  . NMAX 

.  NOX 

INDY 

3  0 

3 

.NPtiil I 

. NREQ  .NS 

. NTAPES 

INDY 

31 

4 

•NTAPET 

. NTASK  . NXMAP 

.NYMAP 

INDY 

32 

9 

.YMIN 

•  PS ( 300  4  . PS  IZE  1  200  1 

.  PACT  I 200 1 

INDY 

33 

6 

.ROPART 

. T 1 300 1 

#  Tl 

INDY 

3  4 

7 

»T2 

.TLJMIT  . X ! 500 1 

.XF 

INDY 

35 

6 

.xo 

•  XMAX  . XM I N 

. XNHAP 

INDY 

36 

9 

»Xi 

X2  » X3 

.X4 

INDY 

37 

1 

» YibOOI 

,7F  rYO 

«  yhax 

INDY 

38 

c 

INDY 

39 

LOGICAL  JD.IGO. 

KDOS. NPRNT 

INDY 

40 

c 

INDY 

41 

1000  FORMAT 

INDY 

42 

1 

K17H10UTPUT 

of  i ndcD2/5X33h induced  activity 

IN  the  thandportedindy 

43 

2  SOIL  CONTRIBUTES  1PE12.4.23H  TO  EACH  PARTICLE 

SIZE.  1 

INDY 

44 

c 

INDY 

45 

SURE  ■  0.0 

INDY 

46 

c 

INDY 

47 

DC 

24  L  *  l.LHAX 

INDY 

48 

IS 

•  (SOIL! 

INDY 

49 

c 

INDY 

50 

DR 

22  1  >  1,IS 

INDY 

51 

DLaM  «  -XLAHU. 

LI 

INDY 

52 

i  r 

I . NOT . JD I  PB 

TO  12 

INDY 

53 

DR  I 

•  -FACII.L1 

*DL-tM*FOQRNYl  I,L1*EXP|DLAH*TIME| 

INDY 

54 

CO 

TO  22 

INDY 

55 

o  o  o 


12  IF  I  .NOT .KDOS J  GO  TO  14 

DR!  s  FACI l .L  I'FOGRNYl I  » L4 » I  EXP  I OL AH* TENT ER | 
r.O  Tn  ?2 

14  DRI  *  FACU.L  1  *FoQRNY  t  I .  Li  *EXP  ( DLAM*TENT£PI  I 


EXP  !  DL AH*TEX I T i I 


SO  i 
60  < 
61 


22  SORE  =  SDRE  ♦  OR  X 
24  CONTINUE 


SDRE  *  SDRE*A|_flf OH*FISNUM 


63  j 

64  [ 


CO  26  HA  *  1.ITAB 

26  FPIMAJ  ■  FPlMAl  *  SDRE *FMASS I  HA  1 

C 

IF  l  NPRNT  1 11 1 1  WRITE  IKOUT.IOOO)  SDRE 

RETURN 

END 

RETURN 

SIBFTC  HCTS  LIST. DECK. K94/2 
SUBROUTINE  MCHBEP 


72  ! 
73'  t 


MCTS 

2  S 

R  C  TOMPKINS 

•  US  ARMY  NUCLEAR  DEFENSE 

LABS 

HCTS 

3  I 

NOVEMBER  1966 

MCTS 

4  8 

BY  PAM2 

MCTS 

5  i 

MCTS 

6  : 

COMMON/FISHIN/ 

MCTS 

7  i 

ABEQN  (7001 

. ABUNDO 1700] 

i BRANCH  1 130 ) 

. CAPF I 

C, 

MCTS 

8  4 

.DCON  17001 

.  I.BRA 

.  I NUC 

. MAXNUC 

MCTS 

9  1 

.MULT  111] 

. NUCL I D I  70  0  1 

MCTS 

10  1 

common/utilty/ 

MCTS 

11  1 

KOUT 

.NPRNT  115] 

MCTS 

12  I 

COMHON/OUTPUT/' 

MCTS 

13  ? 

F1SNUH 

.FP  12001 

.FW 

.1TAB 

.  JGO 

MCTS 

14  1 

. M ASCHO 

.SIGMAS 

MCTS 

15  ! 

COMMON/FRYLNG/ 

MCTS 

16  * 

BSUBK  (901 

.ERH  I 185 1 

» JRM  (169) 

.  KRM 

.ECFIOOI 

MCTS 

17  S 

COHHON/DECAY/ 

MCTS 

18  j 

IQO 

.  JD 

.  KDOS 

.TENTER 

MCTS 

»TEXI  T 

.TIME 

MCTS 

20  \ 

COMMON  /SET3Z 

MCTS 

2i  i 

BZ 

.  BZ2 

<BZZ 

.BZ22 

MCTS 

22  1 

.DELTAX 

.DUX 

.  DGY 

.D1FCON 

MCTS 

23  j 

. DIFADJ 

. FMAS 1 500  J 

.*  FMASS  1  20  0  1 

.  icuai 

MCTS 

?i  1 

.ICON 

.  ICTR 

.  IM 

.loTiiei 

!>CT3 

25 

.IP 

. IPOUT 

. ITT  1161 

.IV 

MCTS 

26  ! 

.  jcuai 

.JIN 

,  JOUT 

, JPOUT 

MCTS 

27  t 

.KTRI5Q0I 

>  ktape 

.LAS  T 

.MAPRUN 

MCTS 

28 

.HARR AY 

..MIN 

.MXREO 

MCTS 

29  j 

. MYDUHY 

.NA 

>  NtiZX 

. NBZX2 

MCTS 

30  ; 

» NBZY 

.  NCL 

» NE 

»NF 

MCTS 

31  i 

•  N  1  J 

i  NHAP 

.  NHAX 

.  NOX 

MCTS 

32  ; 

.NPI21I 

.  NREO 

.NS 

. NTAPES 

MCTS 

33  | 

*  NT  APET 

, NTASK 

» NXMAP 

.NVHAP 

MCTS 

34  ! 

.  YMIN 

. PS  I  5004 

. PS I ZE I  20  0 1 

.PACT (2001 

MCTS 

35  ! 

.ROPART 

.  T 1 50  0  I 

>  T 1 

HCTS 

36  ! 

.T2 

.TLIMIT 

>  X  1  50  0  1 

.  XF 

MCTS 

37  ; 

.XO 

,  XM AX 

.  XNI N 

» XNHAP 

MCTS 

36  i 

o  XI 

» X2 

a  X3 

*  Si  4 

MOTS 

39  s 

uy 


TO 


YHAX 


1  . Y 15001  .vr 


DIMENSION  FHTAll2l«FMTB!l8|»UNITCI2l»UHlT|.l2) 

C 

LOGICAL  NPRNT, TZER7.TMINUS 

f* 

DATA  IFHTA ( II»l*l»lOI/0H 1/14X3. 6H1H  T0T.6HAL  ABU. 6HNDANCE. 6H  OF 
1 . 6HSS  CHA.6HIN  13..6H4H  WAS.6H1PE12. .0H4.  W/ 

2 ,  { pi«Tg» » j . » •« . i ; » /aum ?mji n .  auii tpijt  . *>wnr  M r. u  , 6U|)fp.///.hH5Xi3HP 

3 . AHARTIGL. 6Hi *S l ZE^6H6X22HA» 6HCT I Y I T. 6H Y  OK  M.6HASS  CH.6HAIN14/ 
4  >  6h6x7HH 1 »6HCR0NS1 . 6HRX  9H/ 

9. (UKITCf |).I»1.21/6H  CURIE, 6HS  /]  / 

6. lUNITFlJI. I«1,2|/6H  FISSI.4H0NS/1  / 

DATA  CROSS. UNIT/100 .0.1-0/ 

c 

903  FORMAT 

1  15X1PE12.4.14XE12-41 

C 

TZERO  *  .FALSE. 

TMINUS  ■  .FALSE. 

FMTAU1J  «  UNITCI1) 

FH7AI12)  ■  UN  I TC ( 2 1 
FMTBU6S  u  UN  I  TC  ( 1 1 
FMTBU7J  «  UN  1  TC  ( 2  ) 

IF  I T IME 1 11 • 1 .2 

1  TZERO  ■  .TRUE. 
compute  EQUIVALENT  FISSIONS 

ABNDM  ■  1.0 
FISNUM  ■  FISNIJM  +  1.E4 
FMTAUll  ■  UN  I  TF  (11 
FMTA1121  ■  UN1TF {21 
FMTBI161  ■  UN  I  TF  1 1 1 
FMTBI171  ■  UN  I TF ( 2 1 

2  IF  ( NPRNT ( 1 3 1 )  WRITE  I KOUT » FMTB 1  MASCHN 
IF  ITZEROI  QO  TO  10 

COMPUTE  ACTIVITY  IN  CllHlES 
CALL  BATMAN 

abndk  «  c.o 

DO  220  K1*1.INUC 

]F (MASCHN .NE. I ABSINUCUID IKl 1 1/HULT 191  I  GO  TO  220 
C  SUM  THE  ACTIVITIES  IN  ONE  MASS  CHAIN  AND  CONVERT  TO  CURIES 
ABNDH  n  ABNDM  *  ABUNDOIK1T 
220  CONTINUE 

ABNDM  ■  ABNDM/J . 7E10 
C 

IF  I  ABNDM 19.9.10 

c  the  rest  is  an  abridgement  of  qxpsr 

10  BNEX  «  BSUBXIHASCHN-71I 
CRISS  •  cross**bnex 

RADIAL  »  ECF I MASCHN* 71 J / I  UN  I T  *  CRIS9*ECF (MASCHN-7U I 
STRAIT  ■  RAD  I AL*CR i SS 
ABNDM  ■  abndm*fisnum 
no  134  LD  ■  l.ITAB 

DSR  ■  IRADIAL*PSIZEILD!**BNEX  +  STRA I T I *ABNDM*FMASS ( LD J 
134  FPILDJ  «  FPILCI  ♦  DSR 

IF  I , NOT . NPRNT 1 13 II  GO  TO  9 
WRITE  I  KOUT « 903 1 
1  IPSI2EM  I.FPI1 1. 1»l.  ITABI 
9  WRITE  IKOUT.FMTA]  MASCHN. ABNDM 
RETURN 


MCT  , 

40 

MCTS 

41 

MCT  S 

42 

MCTS 

43 

MCTS 

44 

MCTS 

45 

MAMCTS 

46 

MCTS 

47 

MCTS 

49 

MCTS 

49 

MCTS 

5G 

MCTS 

51 

MCTS 

52 

MCTS 

53 

MCTS 

54 

MCTS 

55 

MCTS 

56 

MCTS 

57 

MCTS 

59 

MCTS 

59 

f  's 

60 

M  •  s 

61 

ML.  3 

62 

MCTS 

63 

MCTS 

64 

MCTS 

65 

MCTS 

66 

MCTS 

4  7 

MCTS 

6B 

MCTS 

69 

MCTS 

70 

MCTS 

71 

MCTS 

72 

MCTS 

73 

MCTS 

74 

MCTS 

75 

MCTS 

76 

MCTS 

77 

MCTS 

78 

MCTS 

79 

MCTS 

80 

MCTS 

61 

MCTS 

82 

MCTS 

83 

MCTS 

84 

MCTS 

85 

MCTS 

86 

MCTS 

B7 

MCTS 

88 

MCTS 

89 

MCTS 

90 

MCTS 

91 

MCTS 

92 

MCTS 

93 

MCTS 

94 

MCTS 

95 

MCTS 

96 

MCTS 

97 

MCTS 

90 

MCTS 

99 

c  ******  *  CODE  INSERTION  POINT 

C 

11  TMINUS  *  .TRUE. 

RETURN 

C 

C*t*»***^-:-'* 

END 


•  it******  MCTS  100 

MCTS  101 
MCTS  102 
MCTS  103 
MCTS  104 

.••*•****  MCTS  105 

MCTS  106 


121 


6.  SAMPIE  TEST  EROnusM  AMD  HR IM TOUT 


123 


PRECEDING 
PAGE  BLANK 


********** 


THE  DEPARTMENT  OF  DEFENSE  FALLOUT  PREDICTION  SYSTEM 
********** 

PARTICLE  ACTIVITY  MODULE 
PREPARED  BY 

US  ARMY  NUCLEAR  DEFENSE  LABORATORY 
EDGEWOOD  ARSENAL,  MARYLAND 

PARTICLE  ACTIVITY  MODULE  26  JUN  67 

CONTROL  VARIABLE  ARRAYS 
IFTAPE(I) 

TTFFFFFFFF 

NPRNT(I) 

FTTTTTFTTTTTTFT 
TOTAL  YIELD  IS  2.0000E  00  KILOTONS. 

FISSION  YIELD  IS  1.0000E  00  KILOTONS. 

TYPE  OF  FISSION  IS  P239HE 
THE  HEIGHT  OF  BURST  IS  10.000  FEET. 

CAPTURE  -  TO  -  FISSION  RATIO  IS  0.000 
NUMBER  OF  NEUTRONS  EMITTED  PER  FISSION  IS  1 ,400 
THE  CLOUD  REACHED  THE  SOIL  CONDENSATION  TEMPERATURE  OF  2200.0  AT  3.86  SEC. 
THERE  ARE  10  PARTICLE  CLASSES  WITH  SIGMA  OF  1.3863. 


PRECEDING, 
PAGE  BLANK 


125 


1  MEftK'OI  ATE  OUTPUT  OF  SETUP 


IMUC 

NUCUC 

OCON 

1 

51003301C004 

6.931E  01 

2 

510034Q1C004 

1.98QE— 01 

3 

51C035C10004 

bt'nit-Dl 

.  4 

5100360UC04 

4.141E-06 

5 

510037G1C004 

1.366E-05 

6 

510040000004 

O.OOOE-39 

7 

511033010004 

6.931E  01 

8 

511034010004 

3.466E-01 

9 

511035010004 

9.902E-02 

10 

51 1036Q1COG4 

5.776E-03 

11 

511037020004 

4.0UE-05 

12 

511040130004 

1.308E  00 

13 

511040000004 

0.000!: -39 

14 

512033010004 

6.931E  01 

15 

512034010004 

4.621E-01 

16 

512035010004 

1.733E-01 

17 

512036010004 

2.567E-03 

18 

512037010004 

1.481E-03 

19 

51204000C004 

O.OOOE-39 

20 

513032010004 

6.931L-  01 

21 

513034010004 

6.931F.  01 

22 

51303501C004 

2.773F-01 

23 

513036010004 

7.296E-02 

24 

513037020004 

5.776E-03 

25 

513040130004 

1.415E-02 

26 

51304C0J.C004 

1.4Q9E-04 

27 

51304 1000004 

O.OOOE-39 

28 

514034010004 

6.931E  01 

29 

514035010004 

3.466E-01 

30 

51403601CG04 

8.664E-02 

31 

514037010004 

2.310E-02 

32 

51404CQ00004 

O.OOOE-39 

33 

514041010004 

7.266E-06 

34 

514042000004 

O.OOOE-39 

35 

515034010004 

6.931E  01 

36 

51503501000ft 

4.621E-01 

37 

515036010004 

1.980E-01 

38 

515037071C02 

4.621E-02 

39 

515040131002 

1.284E-02 

40 

515040010004 

1.704E-05 

41 

515041010004 

4.975E-06 

42 

515042000004 

p.OOOE-39 

43 

516034010004 

6.931E  01 

44 

51603501C004 

6.931E  01 

45 

516036010004 

2.773E-01 

46 

516037010004 

B.664E-02 

47 

516040021002 

9. 169E-05 

48 

51604113Q004 

1.925E-03 

49 

516041010004 

1.269E-04 

50 

516042000004 

O.OOOE-39 

51 
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IS 

JRM 

ERH 

1 

72 

30 

0 

4 

-8.40CE-C7 

? 

7? 

31 

c 

5 

1.170E-05 

3 

73 

31 

0 

11 

-1.8906-06 

4 

73 

32 

1 

12 

7.790E-08 

m 

"Ti  A 

n 

1  ■» 

.  Acnr-nA 

6 

74 

31 

0 

18 

1.800E-05 

7 

75 

32 

i 

25 

-3.0306-07 

8 

75 

32 

0 

26 

1 . 990E-07 

9 

76 

33 

0 

b3 

-.7 . 10CE-06 

10 

77 

32 

1 

39 

-4.G40E-07 

11 

77 

32 

c 

40 

5.740C-06 

12 

77 

33 

0 

41 

5.^306-08 

13 

78 

32 

c 

47 

—2 .4306-06 

14 

78 

33 

1 

48 

2.710E-06 

15 

78 

33 

0 

49 

4.280E-06 

16 

79 

34 

1 

56 

-1.040E-C7 

17 

ei 

34 

1 

70 

—  1 . 150E-07 

18 

82 

35 

0 

78 

-I.4J0E-05 

1*9 

83 

34 

1 

84 

— 6.660E-07 

20 

83 

34 

0 

85 

1.4906-05 

21 

83 

35 

0 

86 

2.770E-07 

22 

83 

36 

1 

87 

2. 320E-07 

23 

84 

35 

0 

93 

-9. 170E-C6 

24 

85 

36 

1 

103 

— 9.09QE-07 

25 

es 

36 

0 

101 

2. 77OE-C0 

26 

86 

37 

1 

108 

— 2.990E— 06 

27 

86 

37 

0 

109 

4.750E-0T 

28 

87 

36 

0 

115 

-4.100E— 06 

29 

88 

36 

0 

.  122 

— 7.680E— 06 

30 

88 

37 

0 

123 

3.120E-06 

31 

89 

36 

0 

128 

-1.690E-C5 

32 

f  9 

37 

0 

129 

1.100E-05 

33 

9C 

36 

0 

138 

— 8.990E— 06 

34 

91 

38 

0 

145 

-4.180E-06 

35 

91 

39 

1 

196 

2.820E-06 

36 

91 

39 

c 

147 

1.730E-08 

37 

92 

38 

0 

153 

-5.880E-06 

33 

92 

39 

0 

154 

1.22CE-06 

39 

93 

3D 

0 

160 

-1.140E-06 

40 

93 

39 

6 

161 

4.880E— 07 

41 

91 

41 

1 

...  _ 1.63  ... 

1.660E-07 

42 

94 

39 

0 

169 

-3.4806-06 

43 

95 

40 

0 

176 

— 3.780E— 06 

44 

95 

41 

1 

177 

1.330E-06 

45 

95 

41 

0 

178 

3.910E-06 

46 

96 

41 

0 

186 

-1.150E-05 

47 

97 

40 

0 

192 

-2.380E-07 

48 

97 

41 

i 

193 

3.820E— 06 

49 

97 

41 

0 

194 

3. 5006-06 

50 

99 

42 

0 

209 

-6.580E-07 

51 

99 

43 

1 

210 

7.450E-07 

52 

100 

43 

0 

218 

—6.0706—06 

53 

ici_  _ 

42 

_ G, 

22'* 

— 7.920E— 66 

54 

101 

43 

0 

225 

1.9306-06 

55 

102 

43 

1 

232 

-5.350E-06 

56 

103 

44 

0 

240 

—2.6106—06 

155 


i 

i 

I 

l 

| 


i 

i 

£ 


I 

.iS 


i 

I 


l 


57 

1C  3 

4  5 

1 

241 

1 .220E-C7 

5B 

1C4 

4  5 

1 

249 

-2.150E-C7 

e  a 

ifi 

4  5 

n 

•iKA 

1  flA/IC./U 

60 

10  5 

44 

6 

257 

-3. 880E-G6 

61 

1C  5 

45 

i 

256 

4.17CE-07 

r>  7 

iC  5 

4  3 

0 

•:59 

1 .750 E-C7 

63 

1C  6 

45 

i 

267 

— 8. 68CE-06 

64 

1C  6 

45 

0 

268 

1.48CE-06 

65 

1C  7 

44 

0 

27* 

-1.220E-C6 

66 

1C  7 

45 

0 

276 

i  . 74CE-06 

67 

1C  8 

44 

0 

283 

-2.650E-C7 

AS 

108 

45 

0 

284 

2.36CE-06 

69 

1C  9 

45 

1 

291 

-6.37CE-07 

70 

i  u  i 

4fc 

1 

293 

6.9lUfc-0f 

71 

1C  9 

46 

0 

294 

1.69CE-07 

72 

ICO 

47 

1 

295 

8  .  C50E—09 

73 

111 

46 

1 

30B 

-3.40CE-07 

74 

111 

46 

0 

309 

6.900E-07 

75 

111 

47 

1 

310 

3. 77QE-C7 

76 

111 

47 

0 

311 

1.310E-C7 

77 

112 

46 

0 

317 

-1.25CE-07 

78 

112 

47 

0 

318 

3.2406-06 

79 

115 

48 

l 

341 

-1.770E-07 

8C 

115 

48 

0 

342 

1.04CE-C6 

61 

115 

49 

1 

343 

1.02CE-06 

82 

116 

47 

0 

350 

-6.430E-06 

83 

117 

48 

1 

357 

—  7 . 0806-06 

84 

117 

49 

1 

359 

5.250E-C7 

85 

117 

49 

0 

360 

3.85CE-06 

86 

117 

5C 

1 

361 

1.220E-06 

87 

118 

49 

0 

369 

-1.160E-06 

88 

119 

49 

1 

377 

-2.690E-07 

89 

119 

49 

0 

378 

*-•  07GE-06 

90 

119 

50 

1 

379 

1.47CE-07 

91 

120 

48 

0 

334 

— 2.71CE-06 

92 

101 

49 

0 

392 

-4.690E-C6 

93 

122 

51 

1 

401 

-4.84CE-07 

94 

122 

51 

0 

402 

2. 020E-06 

95 

123 

49 

0 

408 

—5.350c— 06 

96 

123 

50 

1 

409 

1.05CE-07 

97 

123 

50 

0 

410 

8.320E-C7 

98 

124 

51 

0 

419 

-8.9606-06 

99 

125 

50 

1 

424 

—1  •  9606—06 

100 

125 

50 

0 

425 

3.980E-07 

101 

125 

51 

0 

426 

2. 54GE-C6 

102 

125 

5? 

1 

427 

3. 270E-07 

103 

126 

51 

0 

434 

-9.39CE-U6 

1C4 

127 

DO 

0 

440 

-2.710E-06 

105 

127 

51 

0 

441 

2.6301-06 

106 

127 

52 

1 

442 

5.140E-07 

107 

127 

52 

0 

443 

2.340E— 08 

108 

126 

50 

0 

447 

— 2.390c-C6 

109 

128 

51 

1 

44  P 

9.2BGE-06 

119 

123 

53 

0 

451 

4.900E-07 

111 

129 

51 

0 

456 

—  5.4C0E— 06 

112 

129 

52 

l 

457 

1.830E-07 

U3 

129 

52 

0 

458 

1.2306-06 

114 

129 

54 

1 

460 

4.3C0E-07 

115 

1*0 

53 

0 

468 

— 7.C406— 06 

116 

131 

51 

0 

473 

-3.1S0F-06 

166 


117 

131 

52 

1 

474 

9»  300E-06 

lie 

1?  1 

52 

0 

475 

2.130E-06 

u* 

131 

53 

0 

476 

2.210E-06 

120 

131 

54 

1 

477 

1.980E-C7 

l£i 

132 

7  2 

V 

AC 

122 

132 

53 

0 

484 

1.120E-C5 

123 

133 

52 

1 

489 

-1.120E-Q5 

124 

133 

5? 

0 

4VU 

/.b4Ut-U6 

125 

133 

53 

0 

491 

3* 140E-06 

126 

133 

54 

1 

492 

3.840E-07 

127 

133 

54 

0 

493 

3.060E-07 

128 

134 

52 

0 

49  B 

-6.840E-06 

129 

134 

53 

0 

499 

1.22Cf>05 

130 

134 

55 

1 

501 

7 . 540E-07 

131 

134 

55 

0 

502 

8.130E-06 

132 

135 

53 

0 

5J7 

-1.560^-05 

133 

135 

54 

1 

508 

2.390E-C6 

13' 

135 

54 

a 

509 

1.49CE-06 

135 

136 

53 

0 

514 

-1. 210E-05 

136 

136 

55 

0 

516 

1.17PE-05 

137 

137 

56 

i 

52  3 

-3.1806-06 

138 

13  8 

54 

0 

52  8 

-4.410E-06 

139 

138 

55 

0 

529 

9.790E-06 

140 

139 

54 

0 

535 

— 1.460E— 06 

141 

139 

55 

0 

536 

1.10CE-06 

142 

139 

56 

0 

537 

2.5506-07 

143 

140 

55 

0 

542 

-3.230E-06 

144 

140 

56 

0 

543 

1.1606-06 

145 

140 

57 

0 

544 

1.140E-05 

146 

141 

56 

0 

549 

— 3.650E-06 

147 

141 

57 

0 

550 

1.270E-07 

148 

141 

53 

0 

551 

4.6706-07 

149 

142 

56 

0 

556 

— 4.950E-06 

150 

142 

57 

0 

557 

6.010E-06 

151 

143 

57 

0 

563 

-5.7406-06 

152 

143 

58 

0 

564 

3 .5006-06 

153 

144 

58 

0 

571 

— 1.230E-07 

154 

144 

59 

0 

572 

1.400E-07 

155 

145 

58 

0 

578 

-3. 650E-06 

156 

145 

59 

0 

579 

4.090E-06 

157 

146 

58 

0 

585 

— 1.500E-C6 

158 

146 

59 

0 

566 

6.5306-06 

159 

147 

60 

0 

593 

— 9.600E— 07 

160 

148 

61 

0 

602 

-5.280E-G6 

161 

149 

60 

0 

608 

-1.220E-06 

162 

149 

61 

0 

609 

2.800E-C8 

163 

150 

61 

0 

616 

-B.0d0E-06 

164 

151 

60 

0 

621 

-5.600E— 06 

165 

151 

61 

0 

622 

1.290P— 06 

166 

152 

61 

0 

629 

-3.400E— 06 

167 

152 

63 

1 

631 

1.920E— 06 

168 

152 

63 

0 

632 

5.800E— 06 

169 

153 

61 

0 

638 

-8. 040 E- 07 

170 

153 

62 

0 

639 

1.860E-QT 

171 

154 

63 

0 

646 

-6.0106-06 

172 

155 

62 

0 

652 

—7.2606— 0T 

173  . 

155 

63 

_  A. 

653 

2.890E-07 

174 

156 

63 

0 

659 

-3.0206-06 

ns 

157 

63 

0 

665 

-3.3SOE-06 

176 

158 

62 

0 

670 

— 2 JTlOE— 06 

177 

158 

63 

0 

671 

6.3006-06 

1 7a 

159 

64 

0 

677 

-3.9506-07 

179 

160 

65 

Q 

664 

-2.Q2CE-Q6 

ieo 

161 

64 

0 

690 

-2. 0306-06 

m 

161 

65 

0 

691 

2.4306-07 

OUTPUT  cr  1F0CC1 


KUHflER  OF  ELEMENTS  *  18 


NUMBER  OF 

NEUTRONS 

EMI7TEC  PER  FISSION 

-  I.hC 

1  N  0  f  X 

ISC 

FAC 

xlam 

KEV 

FOG 

RNY 

1 

4 

1.0C2E-02 

7.419E-C9 

« 

C.OOCOO 

O.GOOE-39 

1.441E-01 

7.46ie-35 

1 

C. OOOOO 

C.OOOE-39 

3.25  10-03 

t  .933E-n 

1 

0.00000 

O.OQOE-3') 

2.155E-34 

1.744E-P7 

3 

0.43000 

0.03000 

C. 57000 

6.1j3E-rft 
5. 77CE-C6 
5.3H0E-C6 

2 

7 

O.OCOE-39 

3.487E-08 

1 

C.OOOOC 

C.CJOr-39 

C.0CGE-39 

4 .53CE-31 

1 

O.OOOCC 

0.3006-39 

C.GCOE-39 

4 .930E-31 

1 

0. OOOOO 

Q.0G0E-99 

C.OC  ,E-39 

4.93CE-3I 

1 

O.COOOO 

0. 0006-39 

O.OCOE-39 

£ .93CE-31 

1 

C.OOCOO 

O.OOOE-39 

c  .ocr'E-.;9 

1 .C69E-05 

1 

c.ooocc 

O.OOOE-39 

O.OC3E-39 

3.208E-C3 

1 

0. OOOOO 

C.OOOE-39 

2 

3 

4.829E-02 

4.930E-31 

1 

0.00000 

O.OOOE-39 

8.615E-03 

4.93GE-31 

1 

C.OOCOO 

C.OOOE-39 

2.225E-"3 

7.34TE-05 

1 

0.00700 

6.040E-C6 

4 

3 

8.99 IE-C2 

1.489E-17 

X 

O.IXOCC 

6.7C3E-36 

6.15CE-04 

4.93CE-3X 

1 

C. 00 000 

C.00CE-39 

3. 3246-0.7 

1 .552E-05 

1 

0.18000 

6.95CE-C6 

5 

I 

2.714E-03 

I.C22E-03 

I 

X. OOOOO 

7.7506-04 

6 

1 

7.495E-C3 

1.Z83E-05 

2 

X. 00 000 

x.oocoo 

1 .0706-05 
6.40C6-0& 

7 

5 

2.899E-04 

4.930E-31 

1 

0.00000 

O.COOE-39 

7.541E-04 

4 • 93CE-3X 

1 

0.00000 

O.OOOE-39 

I69 


3.6046-02 

6.9306-31 

1 

0.00000 

O.CO.-6-39 

6.3  <9 t-04 

6.93  )t— 31 

1 

0.00000 

C.UU'Jl-39 

4.5566-05 

1.9911-03 

3 

0.04200 

C.C1300 

0.94500 

4.6SOE-06 
3.2306  -06 
1.7501-06 

e 

2 

5.7796-01 

6. 9306-31 

1 

0.00000 

O.COOE-39 

1.4986-07 

1.7716-09 

1 

0.00000 

O.OOOt-39 

o 

4 

1.167E-02 

6 .630E-31 

1 

0.00000 

O.COOE-39 

1 .5496-02 

6.9306-31 

1 

0.00000 

O.COOE-29 

8.676E— 04 

«.277E-0b 

1 

c.oooco 

0.0006-39 

1.1916-04 

1.2596-03 

3 

0.00600 

C.01CO0 

0.89000 

1.576E-C0 

1.4106-05 

1.1686-05 

:o 

2 

1.9736-02 

7.130E-14 

1 

0.00000 

G.GCOE-39 

8.1206-05 

2.CS0E-04 

2 

0.47000 

0.31000 

8.9206-06 

7.140E-06 

11 

0.0006-39 

2.CC56-08 

1 

C.OOOOC 

0.000E-39 

C.0CCE-39 

6.9306-31 

1 

c.ooooo 

0.0006-39 

O.OCOE-39 

6 .9306— 31 

1 

0.00000 

0.0  JOE-39 

0.0006-39 

«. 9306-31 

1 

c.oooco 

C. OOCE-39 

0.0006-39 

6.9306-31 

1 

0.00000 

Oi.OOOf-39 

0.0CCE-39 

4.C966-06 

1 

0. 00000 

O.OOOE-39 

0.0006-39 

4.8136-04 

1 

c.ooooo 

0.C006-39 

12 

1 

8. 0266-03 

7 .661 E- 05 

5 

0.00500 

0.01800 

0.19500 

0.28200 

0.97700 

1.134E-05 
1 • 040E-C5 
8.840E-06 
7.3506-06 
4.5506-06 

ia 

3 

1.3476—03 

1 . 283E-34 

1 

0.00000 

0.0006-39 

1.5606-03 

6 .9306-31 

1 

0.00000 

0.0006-39 

1.9116-04 

1.216E-03 

l 

0.30CC0 

C. 70000 

5.050E-C6 

4.330E-06 

170 


14 

2 

O.OCOE-39 

t .9306-3 1 

1 

0.00000 

O.OQCE-39 

n.nrnc-iu 

3-^lOF  nt 

7 

0.02600 

1.513E-05 

0.01300 

1.200E-05 

16 

2 

0.0C0E-39 

i .9306-31 

i 

0.00000 

0. 90UE-39 

O.OCOE-39 

3.C72E-03 

i 

1.00000 

6.620E-06 

u 

4 

l.BS'JE-'H 

2 .8856-07 

i 

C. 09000 

1 .7506-06 

1.7C9E-04 

t .  930  fc— 31 

i 

0.00000 

O.OOOf  39 

4.384E-G4 

6.930L-31 

« 

* 

c.occoo 

0. 0096-39 

2.3C6E-36 

2.208E-0: 

i 

0.00000 

C.OOOE-39 

l7 

1 

4.8C1E-0* 

i .609E-07 

i 

0.00000 

0.C00E-39 

18 

1 

4.5396-04 

t . 93CE-31 

i 

-0.00000 

-0.Q00E-39 

m 


OUTPUT  OF  BAT HAN 
NUCLID 

510033010004 

1100340 L0QC4 

11003 5G100Q4 

1100340 100C4 

110037010004 

11004 0Q0Q0C4 

51103 30I00C4 

1110340100C4 

111035010004 

111036010004 

111037010004 

1110401 1QM4 

111040000004 

5120330100Q4 

112034010004 

112035010004 

112036010004 

1120370100C4 

112040000004 

513033010004 

1130340100^4 

113035010004 

113036010004 

113037010004 

113040110004 

113040010004 

113041000004 

514034010004 

114035010004 

114036010064 

114037010004 

114040000004 

514041010004 

11404200Q004 

515034010004 

115035010004. 

115036010004 

115037012002 

115040112002 

115040010004 

115041010004 

115042000004 

516034010004 

116035010004  _ 

116036010004 

11403 7O1QO04 _ 

114040012002 
114041110004  . 

116041010004 
116042000004 
517035010004 
117034010004 
117037010004 
.117040010054 
117041010004 
117042U0©S4_ 
117042010004 


A BUNCO  _ 

O.OOOOE-39 

O.OOOOE-39 

Q. OOOOE-39 

O.OOOOE-39 

0. 00006-39 

O.OOOflt-39  . 

O.OOOCE-39 

C .OOOOE-39 

0.00006-39 

O.OOOCE-39 

O.OOOOE-39 

0.00006-33 _ 

O.OOOOE-39 

O.OOOCE-39  _ 

O.OOOCE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOCE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOCE-39 

O.OOOOE-39 

o.ooqoe-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOf-39 

O.OOOOE-39 

_  O.QflOQE-r39 _ 

O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
JUQMftfcML _ 

O.OOOOE-39 

0 .OOOOE-39 _ 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

0.00006-39 

O.OOOOE-39 

O.OOOOE-39 

6.6JOOE-39 

O.OOOOE-39 

©*©5651-34 

O.OOOOE-39 _ 

O.OOOOE-3 


172 


1170430000C4 

52C035C100C4 

li66360i60C4 

1200370100C4 
120040010004 
120041010004 
120042000004 
521035010004 
1210360100C4 
121037010004 
121040010004 
1210410120C  2 
121042110004 
121042010004 
121043000004 
522036010004 
12203  70100C4 
122040010004 
1220410100C4 
122042000004 
522043010004 
122044000004 
523036010004 
123037010004 
123040010QC4 
123041012002 
123042112002 
1230420100C4 
1230430100C4 
123044110004 
123044000004 
52403 70100C4 
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1*13576  02 

7.8563E  QO 

4. 5594E-06 
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8.9860E  01 

1.68496  02 
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1.62126-05 
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1,93336-01 
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2.38426-06 

0.00006-39 

O.OOOOE-39 

1.35436  01 
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1610530100C< 
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1610560 100C 4 
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161057010004 

161C600000C4 

562052010004 

162053010004 

162054010004 

162055010004 

16205 6C10004 

162057010004 

162060000004 

563053C10004 

16305 401 0004 

163055010004 

163056012002 

16305711230 1 

163057012002 

163060130004 

163060010004 

163061112002 

163061010004 

1630620000C4 

564053010004 

164054010004 

16405 50 1O0C4 

164056010004 

16405 7010004 
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5650530(0004 

163054010004 
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8.27256-03 
8.3635E-C3 
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i. 62796  00 
2.28456  01 
5.82726  0! 
3.60446  01 
1 . 5585  E-Oi 

а.  11236-05 
G.OOOC6-39 
0.000C6-39 
7.82356  00 
3.95306  01 
5.62026  01 
2.6937E  00 
1.48936  00 
( .56076-03 
0.00006-39 
0.00006-39 
2.2601E  00 
2.51986  01 
7.07346  01 
5.99386  00 
3 . 86676  00 
0.00006-39 
3.64956-01 
1.34976  01 

б. 83656  01 
9.94776  00 
1.21476  01 
5.00626-01 
5.19336-01 
5.77076-06 
3.8524£^06_ 
1. 08256-06 
0.00006-39 
O.OOOOE-39 
4.  ?%U8§.  Q0 
4.65336  01 
4.46126  01 
6.83546-01 
O.OOOOE-39 
O.OOOOE-39 

2.8724E  01 
5.5321E  01 
6.7880E  00 


16506 0010004 

165QI  U132C1 

163061Q2Q0C4 

165062110004 

165062000004 

56605401000  4 

16605 50100C4 

1  £>6356010004 

166057010004 

166060020004 

566061120004 

166061010004 

166062000004 

567054010004 

167055010004 

167056010004 

167057012002 

167060120004 

167G600100C4 

167061112301 

16706 1010004 

L670621100C4 

167C620000C4 

5700550100C  4 

17 00560100C4 

17005 70100C4 

1700600100C4 

17CC610100C4 

170062000004 

57105 50100C4 

171056010004 

171057010004 

171060012002 

171061130004 

171061020004 

571062120004 

171062010004 

171C6 3000004 

572056010004 

172057010004 

172Q600100C4 

172061010004 

172062000004 

572063110004 

172063021042 

172064000004 

573056010004 

1730570*0004 

1V306 0012002 

173061130004 

173061020004 

573062120004 

173062010004 

173063000004 

574056010004 

17405 70100C4 

174060010004 

174061010004 

174062000004 

5740632300C4 


6.7849':  00 

5.71575-03 
4.6385E-C4 
4.65666-09 
7.83566-06 
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5.27516-01 
1.60446  01 
5 .44496  01 
2.80976  01 
9.05786-01 
5.5333E-01 
3. 93056-01 
0.00006-39 
3.1920E-O2 
5.5433E  00 
4.38936  01 
2.1129E  01 
2.136CE  01 
4.61276  0C 
4.11596  00 
9.8258E-02 
4.91436-03 
0.000CE-39 
1.5193E  00 
2.42806  01 
5.8396E  01 
1.56416  Cl 
8.5427E-01 
O.OOOOE-39 
1.47176-01 
L.0472C  01 
4.46396  01 
2.1093E  01 
1.9791E  01 
2.2464E  00 
4.07136  00 
8.8662E-05 
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3.9459E  01 
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2.6959E  00 
1.01116-01 
1.03256-01 
1.10556-06 
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1.16596  00 
2.2607E_01 
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1.24016  01 
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1.82316-02 
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5.62556-02 
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4.73336  01 
6.53046  00 
2.88416  00 


5740631200C4 

374063010004 

174064000004 

575057010004 

175060010004 

17506101Z002 

175062120004 

175062010004 

175063012002 

175064110004 

175064000004 

576057010004 

176060010004 

176061010C04 

176062010004 

176063112002 

176063010004 

176064000004 

577057010004 

177060010004 

177061012002 

177062120004 

177062010004 

177063012002 

177064U20C2 

177064010004 
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200061010004 

200062012002 

200063120004 

200063010004 

20C064C00004 

600065011042 

200066000004 

601C600100C4 

201061010004 

2010620100C4 

2Q1063Q120C2 

201064112002 

201064010004 

201065020004 

601066110004 

201066000004 

602060010004 

202061010004 

202062012002 

2020631200C4 

202063010004 

202064000004 

6O2O65O1Q0G4 

202066000004 

603060010004 

203061010004 

203062010004 
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203064010004 
203065012002 
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2 . 8902E  00 
1.0360E-01 
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3.2418E  01 
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4.8502E-06 
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6.57696  01 
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3.38516  00 
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7.9405E  01 
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1.3225E  00 
1.3798E  02 

I. 7117E-01 

J.  6191f  JiP 
2.1523E-04 
O.OOOOE-39 
1. 4254 E— 01 
6*p738E  01 
1.62i2E  02 
5.4435E  01 
5.45956  >1 
1.7T02E  01 
5.34536-07 


203066000004 

604060010004 

2040610100C4 

204Q62O100C4 
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205066110004. 
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56305 JOIOOC4 

163054010004 

16305501000  4 

163056012002 

1630572.1230  1 

163O57O120C2 

163060130004 

1&306001Q004 

163061 112002 

16306 10100C4 

163062000CC4 

564G530100C4 

164054010004 

164055010004 

1640560100C4 

164057010004 

164060000004 

565053010004 

165054C 10004 

1650J5010004 

16505601C004 

165057012002 

165060112301 


O.OOOOE-39 
G.0Q0GE-39 
Cl.OOQOE-39 
0 . OGOCE-39 

/»  nn  a  r  _  T  o 
u « w vv  V  w  v  ' 

O.OOOOE-39 
0.00006-39 
O.OOOOt- SV 
O.OOOCE-39 

o.ooooe-39 

1  •  36716-04 

1. 0209 E -02 

5 . 4349E-03 

1 .  066  6E-Q4 

Q.OOOCE-39 

0 . 0000  E  —  39 

O.OOOOE-39 

0.00006-39 

O.OOOCE-39 

1.0539E-03 

2.1548E-04 

'1.00006-39 

O.GOOOE-39 

0.000*6-39 

0.00006-39 

O.OOOOE-39 

1 . 13486-13 

7 . 8869E—13 

3. 12106-03 

O.OOOOE-39 

O.OOOOE-39 

0.00006-39 

O.OOOOC-39 

0. 00006-3° 

1. 44396-08 

1.4959E-O0 

O.OCOCE-39 

O.OOOOE-39 

0,00006-39 

O.OOOCE-'9 

1 . 1  23CE-24 

1.0U7E-24 

7 . 0970E-03 

2.7206E-06 

2 . 8034E-04 

2.7464E-05 

4.5280E-17 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

Q*OOOOE-39 

0 • OOOOE-39 

2.86096-00 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOQOE-39 

O.OOOOE-39 

3. 63L5E-1? 

2.6426E-G3 
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1650600100C4 

169061123201 

1&50610200C4 

1650621 100C4 

16506 2OOG0C4 

566054010004 

166035010004 

1660560100C4 

16605 70100C4 

166060020004 

56606 11200C4 

1 6606 101Q0C4 

166062000004 

567054010004 

16705 50100C4 

16705601C0C4 

167057012002 

167060120004 

167060010004 

167061112301 

167C6 1010004 

167062110004 

167062000004 

570055010004 

170056010004 

170057010004 

170060020004 

170061C10004 

170062000004 

57105 50100C4 

171056010004 

1U05701Q004 

171060012002 

171061130004 

171061020004 

571062120004 

171062010004 

171063000004 

573Q5£Q1Q0Q4 

172057010004 

172060010004 

172061010004 

'.72O620CCOC4 

572C631100C4 

172063021942 

172064000004 

573056010004 

17  3G5 7010004 

173060012002 

173061130004 

17304*  J.Q2Q_Qfi4._ 

573062} 20004 

173062010004 

173063000004 

574056010004 

174057010004 

1T40600100H4- 

174061010004 

174G620Q0004 

574063230004 


6.26916-03 

2.5466E-03 

7 .30756-04 

3.025CE-09 

0.00006-39 

O.OOOOE-39 

0  .r 000 £-54 

O.OOOOE-39 

0 .0000039 

1.004CE-02 

2 ,2'»  54E-07 

1.0057E-02 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

4. 3406E-08 

7.1885E-04 

9.5509E-03 

5.1467E-04 

1.60306-06 

O.OOOOfc-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

2.5491E-03 

2.73932-03 

O.CCOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOCE-39 

2.8428E-07 

1.1871E-36 

1.9736E-09 

6.9733E-04 

O.OOOOE-39 

O.OOOOE-39  __ 

O.OOOOE-39 

6.4176E-28 

5.8221E-24 

O.OOOOE-39 

1.2643E-08 

5.7992E-07 

O.OOOOE-39 

0 .  0000  b-39 _ _ 

O.OOOOE-39 

0 . 0000  E^3? _ 

7 . 1630E-31 

Q.0l>00E-39 _ 

7.4571E-07 

9.8969S-05 

O.OOOOE-39 

O.OOOOE-39 _ _ _ 

O.OOSGE-39 

_ 

0.00006-39 

_0 .00G0E>39^ _ 

2.19436-04 
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574G631200C4 
5740630100C4 
174Q64QOQO?4 
5750^7010004 
1750600 1 00C4 
175061C120C2 
1750621200C4 
1750620100C4 
i  yr.nt.  in  1  •)  nr  1 


3.26076-16 
i . ri62e  E— 07 
O.OOOOE-39 
O.OQOCt-39 
O.QOOOE-39 
O.OOOOE-39 
8.301 lc-04 
4. 2689E-Q5 
4 .AQA7E-C7 


1750641 100C4 
L750640000C4 
57605  70100C4 
176060010004 
1760610100C4 
176062010004 
1760631120C2 
176063010004 
176064000004 
577057010004 
177060010004 
177061012002 
1770621200C4 
177062010004 
177063012002 
1770641 120C2 
I770640100C4 
1770650000C4 
600060010004 
20006 10100C4 
2000620120C2 
2000631200C4 
200063010004 
2000640000C4 
60C065Q1L042 
200066000CC4 
601060010004 
2010610100C4 
201062010Q04 
20106 30120C2 
201064112002 
2G1064010004 
201065020004 
601066110004 
201066000004 
602060010004 
2020610100C4 
202062012002 
202063120004 
202063010004 
2C206 V000004 
60206 5Q10QC4 
202066000004 
603060010QC4 
2030610100C4 
20306201C0C4 
203063012002 
203064112002 
203064010004 
203065012002 
203066110004 


8.2269E— 08 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOCE-39 

9.3448E-12 

1.298 4 E-03 

2.294CE-05 

O.OOOCE-39 

O.OOOOE  -39 

O.OOOCE-39 

O.OOOOE-39 

9 . 8959E-Q7 

4.3204E-03 

1.8801E-04 

6.9349E-07 

1 . 8144E-04 

O.OOOOE-39 

O.COOCE-39 

O.OOOCE-39 

7.83636-03 

1.0034E-02 

9.4100E-04 

O.OOOCE-39 

4. 3591E-Q5 

O.OOOCE-39 

O.COOCE-39 

O.OOOCE-39 

5.9099E-03 

5.0357E-03 

5.19B2E-06 

3 .9047E-03 

2.1791E-14 

O.OOOOE— 39 

O.OOOOE-39 

0.00CQE-39 

O.OOOOE-39 

4.6153E-08 

2 .7425E-0* 

1 . 5004E-02 

Q.COOOE-39 

5.2752E-05 

C.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

2 . 3326E-17 

1.5057E-O2 

5.2759E-04 

3.3305E-02 

1.707SE-0* 

1.820QE-09 
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203066000004 
604060010004 
2040610100C4 
204062010004 
204063010004 
20406 40100C4 
Z040650100C4 
2C40660000C4 

60506 101 0004 

205062010004 

205063012002 

205064112002 

205064010004 

205065012002 

205066110004 

205066010004 

205067000004 

60606 10100C4 

20606^:010004 

206063010004 

20606 40100C4 

2060650100C4 

206066000004 

6060671 10006 

2060670100C4 

206070000004 

6070620100G4 

207063010004 

207064010004 

207065012002 

207066110004 

207066010004 

2Q7067Q100C4 

207070000004 

610065910004 

210064010004 

210065010004 

210066000004 

>10067010004 

210070000004 

611063010004 

211064010004 

211065051042 

211066010004 

211067012002 

211070110004 

211070000004 

612063010004 

212064010004 

212065061042 

212066019004 

212067010004 

212079000004 

612071010004 

212072000004 

613064010004 

213Q6MA1SAA 

213066010004 

213067010004 

213070010004 


O.OOOOE-39 

O.OOOOE-39 

O.OOQOE-39 

9.6582F-23 

1.2260E-06 

8.6862E-04 

3.2906E-03 

0.0U00E-39 

o.normp-39 

4.2919E-29 

8.9258E-08 

2.1973E-02 

8.8780E-03 

3.3122E-03 

1.5541E-05 

1.9903E-05 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

2 . 5794E-02 

4.4446E-02 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

1.159CE-13 

9.6184E-03 

fc .9016 E-03 

3.7985E-03 

3.88Q4E-13 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

1.5534E-13 

OcOOOOE-39 

5-4309E-P5 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OO0_OE-39_ 

2.6638E-05 

3.6596E-07 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

1.0959E-02 

5-7132E-02 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

P»Wmr39 

9.6474E-27 
6.0654 E-03 
4.4004E-02 


21307 10000C4 

6140640100C4 

214065010QC4 

21406 60100C4 

21 4067C100C4 

21407  00 100C4 

2140710100C4 

2140?  2000004 

61506 50100C4 

21 50660 100C4 

215067010004 

21 507  00100C4 

21 507 10100C4 

215072010004 

215073000004 

61606 50100C4 

216066010004 

216067010004 

216070010004 

2160710100C4 

216072000004 

6170650100C4 

217066010004 

217067010004 

21707  00100C  4 

217071010004 

217072010004 

21707 3010C04 

217074000004 

6200660100C4 

22006 7O10004 

220070010004 

220071010004 

220072010004 

220073010004 

2200740000C4 

621066010004 

221067010004 

221070010004 

221071010004 

2210720100C4 

22107 30100C4 

22 107400J004 

622066010004 

222067010004 

222070010004 

2220710100Q4 

222072010004 

222073010004 

222C740000C4 

623067010004 

223070010004 

22307101C  04 

223072010004 

223073010004 

223074010004 

22^075010004 

223076000004 

6240670.0004 

224070010004 


Q.0C0CE-39 
O.OOOCE-39 
O.OOQOE-39 
O.OOOCE-39 
1.2856E-16 
2.8353E— 04 
1.347CE-04 
0- noofln-'ift 
O.OOQCfc-39 
O.OOOOE-39 
O.OOOCE-39 
2.4795E-02 
1.8055E-02 
1.2270E-C5 
O.OOOCE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 
5.4328E-03 
3.6757E-02 
O.OOOOE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOCE-39 
2.3141E-02 
2.05106-03 
3-.C385E-06 
O.OOOCE-39 
O.OOOCE-39 
C.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
1.03216-05 
1.4212E-04 
O.OOOCE-39 
0.00006-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOCE-39 
1.1339E-06 
9.0577E-03 
O.OOOOE-39_ 
0.00006-39 

Q.0Q0Q£-3? _ 

O.OOCOE-39 
O.OOOOE-39 
9.8627E-Q3 
3.67336-02 
O.OOOOE-39 
<L.O_OQ51r2? 
0.00006-39 
0.00006-3? 
1.43406-15 
7 .02296-03^ 
1.5250E-04 
3.38126-09 
0.00006-39 
0.00006-39 
0.00006-39 
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2240710100C4 

2240720100C4 

224073010004 

224074000004 

AnnT^ninnoA 

224076000004 

625070010004 

22 307 10 10 OC 4 

225072010004 

225073010004 

225074010004 

22507 50100C4 

225076000CC4 

626070010004 

226071010004 

2260720100C4 

2260730100C4 

226074000004 

62607  50100C4 

226076000004 

6270710100C4 

22707  2010004 

227073010004 

227074010004 

227075010004 

227076010004 

2270770000G4 

630071010004 

230072010004 

230073010004 

230074010004 

230075010004 

230076000004 

630077112042 

63  107 7021 04 2 

2.30100000004 

631071010034 

231072010004 

231073010C-C4 

2310740100C4 

231075010004 

231076O100*  4 

231077  <00004 

632072010004 

232073010004 

232074010004 

232075010004 

232076000004 

632C770100G4 

232100000004 

633072010004 

23307301^004 

233074010004 

233075010004 

233076010004 

2?-3077010004 

634073010004 

23^074O106u4 

2340750)0004 


O.OOOOE-39 
1.429SE-27 
7.Q270E-10 
Q.OOOCE-39 
0  nnnrc.io 

O^OOOci-39 

O.OOOOE-39 

G.GGuGE-39 

O.OOOOE-39 

1.97&6E-36 

8.9035E-03 

1.3905E-04 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

0 .00006  -3  f 

2.9624E-G4 

O.OOOCE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

C.OOOOE-39 

O.OOOOE-39 

O.OOOOE-35 

O.OOOCE-'a4, 

0.00006-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.UOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOCE-39 

O.OOOOE-39 

O.OOOOE-39 

0.00006-39 

O.OOOOE-39 

0.00006-39 

O.OOOOE-39 

0.0C0GE-39 

O.OOOOE-39 

O.OOOOfc-34 

Q.OOCOE— 39 

O.OOOOE-39 

O.OOOCE-39 

o.ooocn-3o 

0. 00006-39 

OtOOOOg-39 

0.00006-39 

0.00006-39 

o.oodoe-39 


234076010CC4 
23407  7010004 
2341000000C4 
63507  30100C4 
2350740100C4 
235075010004 
23307 60100C4 
235077010004 
23510000000* 
636073010004 
236074010004 
23607 5010CC4 
236076010004 
23607  70 10004 
236100000004 
637074010004 
237075010004 
23707 60100C4 
23707 70100C4 
2371000100C4 
23710 10000C4 
6400740100C4 
240075010004 
24007 60100C4 
2400770100C4 
240100000004 
6401010100C4 
2401020000C  4 
641074010^04 
241075010004 
241076010004 
241077010004 
2411000100C4 
241101010004 
2411020C0004 


O.OOOCE-39 
O.QOOOE-39 
Q.QQQQE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOCE-39 
0.00006-39 
O.OOOOE-39 
O.OOOCE-19 
O.OOOOE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOCE-39 
Q.OOQQE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOCE-39 
0  OOOOE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 


OUTPUT  Of  GXP SR 

PARTICI.E  SIZE  FISSION  PROCUCT  ACTIVITY 

MICRONS 


7.7965E  C 3 

a  u?ir  *  ■» 

2 aii2si  C 2 
1.7168E  C 2 
i.^vnOE  02 
8.4073E  Cl 
5.8469E  Cl 
3.8870E  Cl 
2»2963E  Cl 
1.2875E  00 


2.6227E  C8 

f*  I  AT  a  r  «« 

4  '  «  VU  W  U 

3.4085E  C 8 
3.6162E  C9 
?,«*;}  4 1  <J8 
4.1113E  C8 
4.4332E  C 8 
4.9397E  C8 
5.7853E  C8 
2.4852E  09 


OUTPUT  CF  INOCC2 

iNOUCtC  ACUV1TV  IN  I  HE  TRANSPORTED  SOIL  CONTRIBUTES 


l.fcWBE  07  TO  EACH  PARTICLE  Silt.- 


TOTAL  PAH  OUTPUT 


PSI2E 

FP 

7.7965E  03 

2.6392E  08 

4.3673E  02 

3.2141 E  08 

2.5B25E  02 

3.1250E  08 

1.7168E  02 

3.6327E  08 

1.1940E  02 

3.8599E  08 

B.4U/3t  Ul 

4.1Z78E  08 

5.8469E  01 

4.4698E  08 

3.BA70F  01 

a  auu  no 

2.2985E  01 

5.80I9E  08 

1.2875E  00 

2.4869E  09 
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OUTPUT  OF  MCHDEP 


PARTICLE  S I  Zb  ACTIVITY  OF  MASS  CHAIN  89 


MICRONS 

FISSIONS 

7.y*65E 

C3 

2 . J632F  21 

^  .jo  fit 

Cc 

2.6919c  21 

2.5825E 

02 

3.032 IE  21 

1 -716fiF 

02 

3.4307E  21 

1.1940C 

C  2 

3.9293E  21 

8.4075E 

Cl 

4.5898E  21 

5.8469E 

Q 1 

5.5290E  21 

3.8870E 

01 

7.0169E  21 

2.2985E 

Cl 

9.9243F  21 

1.2875E 

00 

1.0269E  23 

TCTAi  ABUNDANCE  OF+MASS  CHAIN  89  UAC  lr**Cot  23  FISSIONS 


REFERENCE; 


X,  Freiling,  E.  C.,  Fractionation  I.  High-Yield  Surface 
Burst  Correlation,  USNPDL-TR-3B5 ~  US  Naval  Radiological 
Defense  Laboratory,  San  Francisco,  California  (1999)- 

2.  Freiling,  E.  C.,  Fractionation  III.  Estimation  of  Degree 
of  Fractionation  and  Radionuclide  Partition  for  Nuclear 
Debris,  USNRDL-TR-680,  US  Naval  Radiological  Defense 
Laboratory,  Son  Francisco,  California  (1963). 


3.  Bateman,  Froc  Camb  Phil  Soc  ,  19 ,  *423  (1910). 

4.  -Jones,  T,  K. ,  A  Prediction  System  for  the  Neutron-Induced 
Activity  Contribution  to  Fallout  Exposure  Rates  ,  USNRDL- 
TR-1096,  US  Naval  Radiological  Defense  Laboratory,  San 
Francisco,  California  (1966). 
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,  .^CEDING 
PAGE  BLANK 


APPENDIX 


DETAILS  OF  PAM  DATA  TAPE 


The  data  cards  for  this  tape  were  obtained  from 
Messrs,  S.  H.  Cassidy  and  0.  R.  Crocker  of  the  US  Nava], 
Radiological  Defense  Laboratory. 


PRECEDING 
PAGE  BLANK 
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TABLE  A. 1 


Transition  Cards 


Cards 

Sequence 

Mnemonic 

Format 

1 

FMASS  ,FISOM,PATNO  , II  LIFE  ,IUNIT  ,IEXP, 

(10X,  313,  8X, 

BRAT  , DMAS 2  ,DISOM;DATN0 

F9.4,  IX,  213.  1«, 
17.?,  7X,  313) 

?. 

Same  a3  Card  1 

Terminator 

Blank 

Mnemonics  explained  in  Glossary  of  Subroutine  SETUP. 


Deck  ia  read  by  SETUP. 


HuuiiiMiiiiiiftiiiimii'iii'! 


First  Set 


TABLE  A.  2 

Finn  ion  Yield  CftrdG 


Card 

Sequence 


Mnemonic 


Format 


1  FISTYP(I)  =  1=1,6  12A6 

2  NMAS  ,NAT,NSTAT,FYIDIN(l)  ,1  =  1,6  (XJ  ,l4,Al,6E10.0) 

3  Same  as  Card  3 


Set 

Terminator 


Blank 


Second  Set  Same  sequence  as  first  set 
Third  Set  Same  sequence  as  first  set 


Deck  Blank 

Terminator 


Mnemonics  explained  in  Glossary  of  Subroutine  YIELD. 


Deck  is  read  by  YIEID. 
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TAB  IE  A. 3 


Sa^ubui-k  -  Hate  Muxcipilera 


Card  Sequence 

Mnemonic 

Format 

1 

NMAS ,NAT , NS TAT  ,XRM 

(2X2X3,12 ,E8. 3) 

2 

Same  as  Card  1 

Terminator 

Blank 

Mnemonics  explained  in  Glossary  of  Subroutine  XF5M. 


Deck  is  read  by  XERM. 


PBECEWg 
pftGE  BLANK 
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LISTING  OF 


P4M  DATA  TAFF 


PRECEDING 
PAGE,  blank 
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1SiltimtWfilfflllf!illlK^^  MwtlilWMii*  BBlWIUBf II fr** lCTfe,!'!"rll!ffli( 


7? 

0 

27 

1.0000 

1 

-2 

72 

0 

28 

3.5000 

1 

0 

72 

0 

29 

10.0000 

1 

0 

72 

0 

30 

46.5000 

3 

0 

72 

0 

31 

14.1000 

6 

0 

72 

0 

32 

7  3 

0 

27 

1.0000 

1 

-2 

73 

0 

28 

2.0000 

1 

0 

7 1 

n 

09 

7  •  0  0  0  0 

1 

n 

73 

0 

30 

2.0000 

2 

0 

73 

0 

31 

4.8000 

3 

0 

73 

1 

32 

0.5300 

1 

0 

73 

0 

32 

74 

0 

27 

1  .  0  00  0 

1 

-  2 

74 

0 

28 

1.5000 

1 

0 

74 

0 

29 

4.0000 

1. 

0 

74 

n 

30 

4.5000 

2 

0 

74 

0 

31 

7.8000 

2 

0 

74 

0 

32 

75 

0 

27 

1.0000 

1 

-2 

75 

0 

28 

1.0000 

1 

-2 

75 

0 

29 

2.5000 

1 

0 

75 

0 

30 

9.5000 

1 

0 

75 

0 

31 

2.0003 

2 

0 

75 

1 

32 

49.0000 

1 

0 

75 

a 

32 

82-0000 

2 

0 

75 

0 

33 

76 

0 

28 

1.0000 

1 

-2 

76 

0 

29 

2.0000 

1 

0 

76 

0 

30 

8.0000 

1 

0 

76 

0 

31 

30 .0000 

1 

0 

76 

0 

32 

76 

0 

33 

26.5000 

3 

0 

76 

0 

3^ 

77 

0 

28 

1.0000 

1 

-2 

77 

0 

29 

1.5000 

i 

0 

77 

0 

30 

3.5000 

1 

0 

77 

0 

31 

15.0000 

1 

0 

77 

0 

31 

15.0000 

1 

0 

77 

1 

32 

54.0000 

1 

0 

77 

1 

32 

54.0000 

1 

0 

77 

0 

32 

11.3300 

3 

0 

77 

0 

33 

38.7000 

3 

0 

77 

0 

34 

70 

0 

28 

1.0000 

1 

-2 

78 

0 

29 

1.0000 

1 

-2 

78 

0 

30 

2.5000 

1 

0 

78 

0 

31 

8.0000 

1 

C 

78 

0 

32 

2.1000 

3 

0 

78 

0 

32 

2.1000 

3 

0 

78 

1 

33 

6.0000 

2 

0 

78 

0 

33 

91.0000 

2 

0 

78 

0 

34 

7V 

0 

29 

1.0000 

1 

-2 

79 

0 

30 

1.5000 

1 

0 

79 

0 

31 

4.5000 

1 

0 

79 

0 

32 

25,0000 

1 

G 

79 

0 

33 

9,0000 

2 

0 

79 

1 

34 

3.8900 

2 

0 

79 

0 

34 

6.0000 

5 

4 

1.00000 

72 

C 

28 

TRAN 

i 

1.00000 

72 

0 

29 

TRAN 

2 

i. ooono 

72 

c 

30 

TRAN 

3 

1.00000 

72 

0 

31 

TRAN 

4 

1  ,  0  0  0 't  0 

72 

0 

32 

TRAN 

5 

TRAN 

6 

1. 00000 

73 

0 

28 

TRAN 

7 

1. 00000 

73 

0 

29 

TRAN 

8 

i . nnnnn 

7* 

0 

30 

TRAN 

9 

1.00000 

73 

0 

31 

TRAN 

?,  0 

1.00000 

73 

1 

32 

TRAN 

11 

1.00000 

73 

0 

32 

TRAN 

12 

TRAN 

13 

1 . 00000 

74 

0 

28 

TRAN 

14 

1.00000 

74 

0 

29 

IRAN 

15 

1.00000 

74 

0 

30 

TRAN 

16 

1.00000 

74 

0 

31 

TRAN 

17 

1 . 00000 

74 

0 

32 

TRAN 

18 

TRAN 

19 

1.00000 

75 

0 

28 

TRAN 

20 

1.00000 

75 

0 

29 

TRAN 

21 

1.00000 

75 

0 

30 

TRAN 

22 

1. 00000 

75 

II 

31 

TRAN 

23 

1.00000 

75 

1 

32 

TRAN 

24 

1.00000 

75 

0 

32 

TRAN 

25 

1. oocoo 

75 

0 

33 

TRAN 

26 

TRAN 

27 

1.00000 

76 

0 

29 

TRAN 

20 

1. 00000 

76 

0 

30 

TRAN 

29 

1.00000 

76 

0 

31 

TRAN 

30 

1.00000 

76 

0 

32 

TRAN 

31 

TRAM 

32 

1.00000 

76 

0 

34 

TRAN 

33 

TRAN 

34 

1.00000 

77 

0 

29 

TRAN 

35 

1.00000 

77 

0 

30 

TRAN 

36 

i.  oocn*' 

77 

0 

31 

TRAN 

37 

0.60000 

77 

1 

32 

TRAN 

38 

0.40000 

77 

0 

32 

TRAN 

39 

0.36000 

77 

0 

32 

TRAN 

40 

0.64000 

77 

0 

33 

TRAN 

41 

1.00000 

77 

0 

33 

TRAN 

42 

1.00000 

77 

0 

34 

TRAN 

43 

TRAN 

44 

1.00000 

70 

0 

29 

TRAN 

45 

i  .  00000 

78 

0 

33 

TRAN 

46 

1.00000 

78 

G 

31 

TRAN 

47 

1.00000 

78 

0 

32 

TRAN 

40 

0.50000 

78 

1 

33 

TRAN 

49 

0.50030 

78 

0 

33 

TRAN 

50 

1.00000 

78 

0 

33 

TRAN 

51 

1.00000 

78 

0 

34 

TRAN 

52 

TRAN 

53 

1.00000 

79 

0 

30 

TRAN 

54 

1.30000 

79 

0 

31 

TRAN 

55 

1.00000 

79 

0 

32 

TRAN 

56 

1.00000 

79 

0 

33 

TRAN 

57 

1.00000 

79 

1 

34 

TRAM 

58 

1.00000 

79 

0 

34 

TRAN 

59 

1.00000 

79 

c 

35 

TRAN 

60 
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/9 

0 

35 

THAN 

61 

80 

0 

29 

1  .0000 

1 

-2 

1 .  osooo 

80 

0 

■3  0 

TRAN 

62 

80 

0 

30 

1.5000 

1 

0 

1.00000 

50 

0 

31 

TRAN 

63 

80 

0 

3i 

3,0000 

1 

0 

1.00000 

80 

0 

32 

TRAN 

64 

80 

0 

32 

25.0000 

1 

0 

1 .00000 

ac 

0 

33 

TRAN 

65 

00 

0 

33 

36.0000 

1 

0 

1 .00000 

80 

0 

34 

TRAN 

66 

80 

0 

34 

THAN 

67 

01 

0 

29 

1.0000 

1 

-2 

1.00000 

81 

0 

3  0 

TRAN 

68 

ei 

0 

30 

1.0000 

1 

-2 

1.00000 

01 

0 

31 

TRAN 

69 

ai 

0 

35 

TRAN 

;c 

01 

0 

31 

2.0000 

1 

0 

1.00000 

81 

0 

32 

TRAN 

71 

01 

0 

32 

7.0000 

1 

0 

1.00000 

81 

0 

33 

THAN 

72 

0i 

0 

33 

33.0000 

1 

0 

0  .  06000 

81 

1 

34 

TRAN 

/3 

01 

0 

33 

33.0000 

1 

0 

0.94000 

81 

0 

34 

TRAN 

74 

81 

1. 

34 

57.0C0U 

2 

0 

1 .00000 

61 

0 

34 

TRAN 

75 

81 

0 

34 

10.0000 

2 

0 

l.ooooo 

ai 

0 

35 

TRAN 

76 

02 

0 

30 

1.0000 

1 

-2 

1 .00000 

62 

0 

31 

TRAN 

77 

02 

0 

31 

1.5000 

1 

0 

1.00000 

62 

0 

o2 

TRAN 

78 

82 

0 

32 

5.0000 

1 

0 

1. 00000 

82 

0 

33 

TRAN 

79 

82 

0 

33 

18.0000 

1 

0 

1.00000 

82 

0 

34 

TRAN 

80 

82 

0 

34 

TRAN 

01 

82 

0 

35 

35.9000 

3 

0 

1.00000 

82 

0 

36 

TRAN 

82 

82 

0 

36 

TRAN 

03 

83 

0 

30 

1.0000 

1 

1.00000 

83 

0 

31 

TRAN 

34 

S3 

0 

31 

1.0009 

1 

•2 

1.00000 

63 

0 

32 

TRAN 

05 

03 

0 

32 

2.0000 

1 

0 

1.00000 

83 

0 

33 

TRAN 

06 

83 

0 

33 

7  .  OuoO 
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0 

0.44000 

03 

1 

34 

TRAN 

87 

03 

0 

33 

7.0000 

1 

0 

0.56000 

83 

0 

34 

TRAN 

88 

63 

1 

34 

59.0000 

1 

0 

0.10000 

83 

0 

34 

TRAN 

89 

83 
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34 

69.0000 

1 

0 

3.90000 

83 

0 

35 

TRAN 

90 

83 

0 

34 

25.0000 

2 

0 

l.COOOO 

83 

0 

35 

TRAN 

91 

83 

0 

35 

2.4000 

3 

0 

1.00000 

83 

1 

36 

TRAN 

92 

83 

1 

36 

114.0000 

2 

c 

1.00000 

83 

0 

36 

TRAM 

93 

83 

0 

36 

TRAN 

94 

84 

0 

31 

1.0000 

1 

-2 

1.00000 

84 

0 

32 

TRAN 

95 

64 

0 

32 

1.5000 

* 

A 

0 

1.00000 

84 

0 

33 

TRAN 

96 

64 

0 

33 

4.0000 

1 

0 

1.00000 

64 

0 

34 

TRAN 

97 

64 

0 

34 

3. 0000 

2 

0 

1.00000 

84 

0 

35 

TRAN 

98 

64 

0 

35 

32.0000 

2 

0 

1.00000 

84 

0 

36 

TRAN 

99 

84 

0 

36 

TRAN 

100 

85 

0 

31 

1.0000 

i 

-2 

1.00000 

05 

0 

32 

TRAN 

101 

65 

0 

32 

i 

»-  -  V  W  "» 

1 

A 

1.00500 

6? 

0 

33 

TRAN 

102 

85 

0 

33 

0.4300 

1 

0 

1.00000 

85 

0 

34 

TRAN 

103 

85 

0 

34 

39.0000 

1 

0 

1.00000 

65 

0 

35 

TRAN 

104 

85 

0 

35 

3.0000 

2 

0 

1.00000 

05 

1 

36 

TRAN 

105 

85 

1 

36 

4.4000 

3 

0 

0.19000 

85 

0 

36 

TRAN 

106 

85 

1 

36 

4.4000 

3 

0 

0.61000 

85 

0 

37 

TRAN 

107 

85 

0 

36 

10.6000 

5 

0 

1.00C90 

85 

c 

37 

TRAN 

128 

05 

0 

37 

TRAN 

109 

86 

0 

32 

1.0000 

1 

-2 

1.00000 

6o 

0 

33 

TRAN 

11 Q 

66 

0 

33 

2.0000 

1 

0 

1. 00070 

86 

0 

34 

TRAN 

111 

06 

c 

34 

16-0000 

1 

0 

l.OOOOO 

06 

0 

35 

TRAN 

112 

06 

0 

35 

1.0000 

2 

0 

1.00000 

86 

0 

36 

TRAN 

113 

86 

0 

36 

TRAN 

114 

06 

1 

37 

1.0400 

2 

0 

1.00000 

06 

0 

37 

TRAN 

115 

06 

0 

37 

10.6OQO 

4 

0 

1.00000 

86 

c 

3e 

TRAN 

116 

86 

3 

38 

TRAN 

117 

07 
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1.0000 
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-2 
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87 
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33 

TRAN 

118 
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1.5000 
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1.00000 

87 
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34 

TRAN 

119 

07 
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16.0000 

1 

0 

1.00000 

87 

0 

35 

TRAN 

120 
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S  7 

0 

35 

54,5000 

1 

0 
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06 

n 

26 

THAN 

121 

8  7 

0 

.35 

54.5000 

1 

0 

0-97000 

87 

0 

36 

TRAM 

122 

87 

0 

36 

7  6  .  r>  0  0  0 

2 

0 

1.00000 

87 

1) 

37 

TRAN 

127 

87 

0 

37 

4.3000 

5 

10 

1.00000 

67 

0 

.36 

7  RAN 

124 

87 

0 

38 

TRAM 

125 

68 

0 

32 

l .nooo 

1 

_  r 
•  C 

3.00000 

88 

0 

33 

7  RAN 

126 

86 

0 

37 

1.0000 

1 

-2 

1.00000 

6ft 

0 

34 

TRAN 

127 

OO 

0 

3*^ 

2  •  5  0  0  u 

i 

u 

i  .  it  u  u  ju 

oo 

t 

3  3 

1  rifin 

12a 

88 

0 

35 

16.3000 

1 

0 

0  ,  07000 

67 

G 

36 

TR  A™ 

329 

86 

0 

35 

16.3000 

1 

0 

0 . 93000 

A  8 

0 

36 

TRAN 

130 

86 

0 

36 

2  ■  8000 

3 

0 

1.00000 

88 

0 

37 

TRAN 

131 

86 

0 

37 

18.0000 

2 

0 

1 .  oocoo 

88 

0 

38 

TRAN 

132 

88 

0 

38 

TRAN 

133 

89 

0 

33 

1.0000 

1 

-2 

1.00000 

89 

0 

34 

TRAN 

134 

89 

c 

34 

2.0000 

1 

0 

1.60000 

69 

0 

35 

TRAN 

135 

89 

0 

35 

••  •  <4  j  u  U 

1 

0 

Q.iiSno 

63 

0 

36 

TRAN 

136 

89 

0 

35 

4.400'. 

1 

0 

0. 09200 

69 

c 

36 

TRAN 

13  7 

89 

0 

36 

3.2000 

2 

0 

1.00000 

69 

0 

37 

TRAN 

138 

89 

0 

37 

15.4000 

2 

0 

1.00000 

09 

0 

38 

TRAN 

139 

89 

0 

36 

50*5000 

4 

0 

1.00000 

89 

0 

39 

TRAN 

140 

S7 

1 

39 

16.0000 

1 

0 

1.00000 

5-9 

0 

39 

TRAN 

141 

89 

0 

39 

TRAN 

14  2 

90 

0 

33 

1.0000 

1 

c 

1.00000 

90 

0 

34 

TRAN 

143 

90 

0 

34 

1.0  000 

1 

*2 

1,00000 

90 

0 

.35 

TRAN 

144 

90 

0 

35 

1 .6000 

1 

0 

0.15000 

69 

c 

36 

TRAN 

145 

90 

0 

35 

1 .6000 

1 

0 

0 . 8500U 

90 

0 

36 

T:iAW 

146 

90 

0 

36 

53. 0000 

1 

0 

1. 00003 

90 

0 

37 

TRAN 

14  7 

90 

(1 

37 

2.7000 

2 

0 

1 .00000 

90 

0 

38 

TRAN 

148 

90 

0 

36 

28.0000 

5 

0 

1 . 00000 

90 

0 

39 

TRAN 

149 

90 

0 

39 

64 . 3003 

3 

0 

1. ooooo 

90 

n 

40 

TRAN 

150 

90 

0 

40 

TRAN 

151 

91 

0 

34 

1.0000 

1 

-2 

1.00000 

91 

0 

35 

TRAN 

152 

91 

0 

35 

2.0000 

1 

0 

1. ooooo 

91 

0 

36 

TRAN 

153 

91 

0 

36 

10.0000 

1 

0 

1. ooooo 

91 

0 

37 

TR  AN 

154 

91 

0 

37 

72-0000 

1 

0 

1.00000 

91 

0 

38 

TRAN 

155 

91 

0 

38 

9.7Q0G 

3 

0 

0.60000 

91 

1 

39 

TRAN 

156 

91 

0 

38 

9.7000 

3 

0 

0.40000 

91 

Q 

39 

TRAN 

157 

91 

1 

39 

50-0000 

2 
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1. ooooo 

91 

0 

39 

TRAN 

158 

91 

0 

39 

58.0000 

4 

0 

1.00000 

91 

0 

40 

TRAN 

159 

91 

0 

40 

TRAN 

160 

9? 
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34 

1 . 0000 

1 
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1 -00000 

92 
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35 

TRAN 

16! 

92 

0 

35 
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0 

1. ooooo 

92 

0 

36 

TRAN 
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92 
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36 

3  .(3000 

1 

0 

1.00000 

92 
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37 

TRAN 

163 

92 
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37 

5.3000 

1 
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1. ooooo 

92 
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38 

TRAN 

164 
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38 

2.7000 

3 

0 
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92 
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39 

TRAN 
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39 
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3 
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40 

TRAN 
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40 

TRAN 

167 
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34 

1.0000 

1 

-2 
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35 

TRAN 
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TRAN 
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TRAN 
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41 

TRAN 
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TRAN 
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3.7000 

5 

0 

i.  oooor 

93 

0 

41 

TRAN 
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TRAN 
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TRAN 
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